path: root/rkt/giblang.rkt

#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)