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

3 lines
59 B
Forth
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
: ints ( -- )
0 begin 1+ dup cr u. dup -1 = until drop ;