RosettaCodeData/Task/Loops-Break/Scheme/loops-break-1.scm

7 lines
144 B
Scheme
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(let loop ((first (random 20)))
(print first)
(if (not (= first 10))
(begin
(print (random 20))
(loop (random 20)))))