Select Code to Download

#        123456789_123456789_123456789_123456789_123456789_123456789_1
+23456789_123456789_123456789_123456789_123456789_123456789_12
perl5.10 -E'$l=pop;sub r(){int rand 10}@x=map r,1..$l;while(@h<@x){@g=
+map$h[$_]//r,0..$l-1;push@h,$g[@h]if$g[@h]==$x[@h];say@g}' 16

perl5.10 -E'$l=pop;sub r(){int rand 10}@x=map r,1..$l;$|=1;print@x;whi
+le(@h<@x){@g=map$h[$_]//r,0..$l-1;push@h,$g[@h]if$g[@h]==$x[@h]&&"111
+1"==r.r.r.r;print"\b"x$l," "x$l,"\b"x$l,@g}say' 16