RosettaCodeData/Task/Loops-Break/Arc/loops-break.arc

8 lines
131 B
Plaintext

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