RosettaCodeData/Task/Loops-Break/Scheme/loops-break-1.ss
2023-07-01 13:44:08 -04:00

6 lines
144 B
Scheme

(let loop ((first (random 20)))
(print first)
(if (not (= first 10))
(begin
(print (random 20))
(loop (random 20)))))