RosettaCodeData/Task/Integer-sequence/Retro/integer-sequence.retro
2023-07-01 13:44:08 -04:00

1 line
55 B
Text

#0 [ [ n:put spa ] sip n:inc dup n:-zero? ] while drop