RosettaCodeData/Task/Integer-sequence/Sed/integer-sequence.sed

10 lines
72 B
Sed

:l
p
s/^9*$/0&/
h
y/0123456789/1234567890/
x
G
s/.9*\n.*\([^0]\)/\1/
bl