22 lines
391 B
Sed
22 lines
391 B
Sed
/^$/ b
|
|
:start
|
|
/^[^0-9]/ b
|
|
:loop
|
|
/^1[^0-9]/ {
|
|
s/^1(.)(\1*)(.*)/\3\1\2/
|
|
b start }
|
|
h
|
|
/^[0-9]*[1-9][^0-9]/ {
|
|
s/^[0-9]*([1-9]).*/\1/
|
|
y/123456789/012345678/
|
|
G
|
|
s/^([0-8])\n([0-9]*)[1-9]([^0-9])(.*)/\2\1\3\3\4/
|
|
b loop }
|
|
/^[0-9]+0[^0-9]/ {
|
|
s/^[0-9]*([1-9]0+)[^0-9].*/\1/
|
|
y/0123456789/9012345678/
|
|
G
|
|
s/^([0-9]+)\n([0-9]*)[1-9]0+([^0-9])(.*)/\2\1\3\3\4/
|
|
s/^0+//
|
|
b loop }
|