RosettaCodeData/Task/Loops-Continue/NewLISP/loops-continue.l
2023-07-01 13:44:08 -04:00

5 lines
81 B
Common Lisp

(for (i 1 10)
(print i)
(if (= 0 (% i 5))
(println)
(print ", ")))