RosettaCodeData/Task/Integer-sequence/Forth/integer-sequence.fth

3 lines
59 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
: ints ( -- )
0 begin 1+ dup cr u. dup -1 = until drop ;