RosettaCodeData/Task/Loops-Continue/PicoLisp/loops-continue.l
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

5 lines
79 B
Text

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