RosettaCodeData/Task/Loops-Break/Arc/loops-break.arc
2018-06-22 20:57:24 +00:00

7 lines
131 B
Text

(point break
(while t
(let x (rand 20)
(prn "a: " x)
(if (is x 10)
(break)))
(prn "b: " (rand 20))))