@l=split//,<>;print@l;pop@l; while($#l>=1){@I=();for$i(1..$#l){push(@I,abs($l[$i-1]-$l[$i]))}print@I,"\n";@l=@I}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page