RosettaCodeData/Task/Loops-Break/PicoLisp/loops-break-2.l

3 lines
63 B
Common Lisp

(until (= 10 (println (rand 1 19)))
(println (rand 1 19)) )