11 lines
117 B
Sed
11 lines
117 B
Sed
h
|
|
s/^[-+]\{0,1\}0*\([1-9]\([0-9][0-9]\)\{1,\}\)$/\1/
|
|
t l
|
|
s/$/ -> error!/
|
|
b
|
|
:l
|
|
s/.\(.\{3,\}\)./\1/
|
|
t l
|
|
x
|
|
G
|
|
s/\n/ -> /
|