RosettaCodeData/Task/Loops-Continue/Oforth/loops-continue.oforth
2016-12-05 23:44:36 +01:00

6 lines
108 B
Text

: loopCont
| i |
10 loop: i [
i dup print 5 mod ifZero: [ printcr continue ]
"," .
] ;