RosettaCodeData/Task/Loops-Do-while/NewLISP/loops-do-while.newlisp

4 lines
63 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
(let ((i 0))
(do-until (= 0 (% i 6))
(println (++ i))))