RosettaCodeData/Task/Loops-Break/Scheme/loops-break-1.scm
2024-10-16 18:07:41 -07:00

6 lines
144 B
Scheme

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