Pileup by nfouille

#!perl -anl\x0d
@b=map y///c,@F;$s=join'',@F;map{$i=$_;$p=0;print join' ',map{$p+=$_;substr$s,$p-$_,$_}@b;@b[$i,$i+1]=@b[$i+1,$i]}0..$#b

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page