#!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