y/ox./-09/for@_=<>; for(1..32){chomp,s/(?<=(\d))(.)/$2>$1?$1+1:$2/egfor@_; $i=@D=();(map$D[$i].=chop,@_),$i++for@_;@_=@D}$,=$/,print@_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page