RosettaCodeData/Task/Loops-Break/Qi/loops-break.qi

6 lines
157 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
(define loop -> (if (= 10 (PRINT (random 20)))
true
(do (PRINT (random 20))
(loop))))
(loop)