RosettaCodeData/Task/Loops-Continue/Forth/loops-continue.fth

6 lines
90 B
Forth
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
: main
11 1 do
i dup 1 r.
5 mod 0= if cr else [char] , emit space then
loop ;