diff options
Diffstat (limited to 'chibi/giblang.scm')
-rw-r--r-- | chibi/giblang.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/chibi/giblang.scm b/chibi/giblang.scm new file mode 100644 index 0000000..d07e765 --- /dev/null +++ b/chibi/giblang.scm @@ -0,0 +1,23 @@ +; chibi stuff +(import (scheme base) + (scheme write) + (srfi 101)) + +(define consonants + (list + "b" "c" "d" "f" + "g" "h" "j" "k" + "l" "m" "n" "p" + "r" "s" "t" "v" + "w" "z" "ch" "sh" + "zh" "th")) + +(define vowels + (list + "a" "e" "i" "o" + "u" "y" "ee" "ai" "ae")) + +(define (select-random-element list) + (list-ref list (random (length list)))) + +(display (select-random-element vowels)) \ No newline at end of file |