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

6 lines
90 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
: main
11 1 do
i dup 1 r.
5 mod 0= if cr else [char] , emit space then
loop ;