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

4 lines
63 B
Plaintext

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