RosettaCodeData/Task/Loops-Continue/Factor/loops-continue.factor

5 lines
87 B
Factor

1 10 [a,b] [
[ number>string write ]
[ 5 mod 0 = "\n" ", " ? write ] bi
] each