ClojTalk

; (def words

; ["the" "be" "to" "of" "and" "a" "in" "that" "have" "I" "it" "for" "not" "on" "with" "he" "as" "you" "do" "at" "this" "but" "his" "by" "from" "they" "we" "say" "her" "she" "or" "an" "will" "my" "one" "all" "would" "there" "their" "what" "so" "up" "out" "if" "about" "who" "get" "which" "go" "me" "when" "make" "can" "like" "time" "no" "just" "him" "know" "take" "people" "into" "year" "your" "good" "some" "could" "them" "see" "other" "than" "then" "now" "look" "only" "come" "its" "over" "think" "also" "back" "after" "use" "two" "how" "our" "work" "first" "well" "way" "even" "new" "want" "because" "any" "these" "give" "day" "most" "us" "is" "are" "was" "were" "has" "been" "had" "do" "does" "did" "doing" "at" "as" "than" "instead" "more" "to" "on" "onto" "in" "into" "through" "thru" "by" "with" "atop" "under" "below" "above" "over" "beneath" "beside" "against" "among" "between" "near" "nigh" "before" "after" "behind" "besides" "along" "around" "before" "beseech" "besides" "around" "about" "concerning" "anent" "bespeaking" "speaking" "toward" "against" "for" "with" "withal" "besides" "beside" "aside" "away" "from" "without" "within" "inside" "for" "by" "by" "way" "of" "beside" "off" "off" "of" "alongside" "throughout" "beyond" "along" "along" "with" "alone"]

; )

(def words

["yang" "di" "dan" "dari" "dengan" "ke" "untuk" "pada" "adalah" "saya" "kamu" "ini" "itu" "akan" "tidak" "ada" "mereka" "kita" "dapat" "dari" "juga" "atau" "untuk" "atau" "lebih" "dari" "sebagai" "atau" "sebuah" "itu" "dia" "kami" "berada" "oleh" "karena" "dengan" "bagi" "dengan" "saat" "berapa" "di" "sekarang" "kemudian" "dimana" "bagaimana" "kita" "dari" "saya" "bisa" "tidak" "dia" "tahu" "mengambil" "orang" "masuk" "tahun" "kamu" "baik" "beberapa" "mereka" "lihat" "lain" "dari" "dari" "maka" "saja" "pertama" "baik" "cara" "bahkan" "baru" "ingin" "karena" "setiap" "apa" "beberapa" "bahwa" "beberapa" "kami" "tidak" "ini" "dia" "ini" "itu" "apa" "saya" "akan" "dari" "mereka" "kami" "di" "apakah" "saat" "dan" "kemudian" "atau" "sekarang" "yang" "hanya" "dari" "atau" "atas" "atas" "di" "samping" "melawan" "di" "antara" "dekat" "sebelum" "setelah" "belakang" "selain" "bersama" "di" "sekitar" "sebelum" "selain" ]

)

(defn random-word []

(rand-nth words))

(defn generate-sentence [num-words]

(apply str (interpose " " (repeatedly num-words random-word))))

(println (generate-sentence 16))