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

7 lines
144 B
Scheme
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(let loop ((first (random 20)))
(print first)
(if (not (= first 10))
(begin
(print (random 20))
(loop (random 20)))))