7 lines
212 B
Text
7 lines
212 B
Text
(de guessTheNumber ()
|
|
(let Number (rand 1 9)
|
|
(loop
|
|
(prin "Guess the number: ")
|
|
(T (= Number (read))
|
|
(prinl "Well guessed!") )
|
|
(prinl "Sorry, this was wrong") ) ) )
|