RosettaCodeData/Task/Loops-Continue/PicoLisp/loops-continue.l

6 lines
79 B
Plaintext

(for I 10
(print I)
(if (=0 (% I 5))
(prinl)
(prin ", ") ) )