RosettaCodeData/Task/Loops-Do-while/NewLISP/loops-do-while.newlisp
2015-02-20 00:35:01 -05:00

3 lines
63 B
Text

(let ((i 0))
(do-until (= 0 (% i 6))
(println (++ i))))