# 123456789_123456789_123456789_123456789_123456789_123456789_123456789_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;while(@h<@x){@g=map$h[$_]//r,0..$l-1;push@h,$g[@h]if$g[@h]==$x[@h]&&"1111"==r.r.r.r;print"\b"x$l," "x$l,"\b"x$l,@g}say' 16