RosettaCodeData/Task/Loops-Do-while/NewLISP/loops-do-while.l
2023-07-01 13:44:08 -04:00

3 lines
63 B
Common Lisp

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