Select Code to Download

perl -le'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;@a[$
+c..$d]=(r)x$d;print@a}' 10

perl -e'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;@a[$c
+..$d]=(r)x$d;print@a,"\r"}print$/' 10

perl -e'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;for(0
+..1e4){@a[$c..$d]=(r)x$d;print@a,"\r"}}print$/' 10