diff options
Diffstat (limited to 'rkt/giblang.rkt')
-rw-r--r-- | rkt/giblang.rkt | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/rkt/giblang.rkt b/rkt/giblang.rkt new file mode 100644 index 0000000..9f29e92 --- /dev/null +++ b/rkt/giblang.rkt @@ -0,0 +1,28 @@ +#lang racket + +(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)))) + +(define (word) + (for/list ([i (random 3 5)]) + (display + (select-random-element vowels)) + (display + (select-random-element consonants)))) + + +(word) \ No newline at end of file |