15 lines
498 B
Clojure
15 lines
498 B
Clojure
(def responses
|
|
["It is certain" "It is decidedly so" "Without a doubt"
|
|
"Yes, definitely" "You may rely on it" "As I see it, yes"
|
|
"Most likely" "Outlook good" "Signs point to yes" "Yes"
|
|
"Reply hazy, try again" "Ask again later"
|
|
"Better not tell you now" "Cannot predict now"
|
|
"Concentrate and ask again" "Don't bet on it"
|
|
"My reply is no" "My sources say no" "Outlook not so good"
|
|
"Very doubtful"])
|
|
|
|
(do
|
|
(println "Ask a question. ")
|
|
(read-line)
|
|
(println (rand-nth responses)))
|