30 lines
546 B
Text
Executable file
30 lines
546 B
Text
Executable file
(import write utils)
|
|
|
|
(let:int won 0)
|
|
(let:int number (% (random) 20))
|
|
|
|
(write "Guess a number between 0 and 20")
|
|
(newline)
|
|
(while (! won)
|
|
(write "Your guess ? ")
|
|
(let guess (:int (input)))
|
|
(if (! (is:null guess))
|
|
(if (> guess number)
|
|
(write "The number is smaller")
|
|
(newline)
|
|
)
|
|
(if (< guess number)
|
|
(write "The number is larger")
|
|
(newline)
|
|
)
|
|
(if (= guess number)
|
|
(write "You won !")
|
|
(newline)
|
|
(won 1)
|
|
)
|
|
)
|
|
(if (! won)
|
|
(write "Sorry, try again.")
|
|
(newline)
|
|
)
|
|
)
|