#! perl -slw use strict; \$|++; sub r{int rand pop} my \$n = pop; my @c = map int rand 10,1..\$n; my @x = (0) x \$n; for my \$d ( 0 .. \$n -1 ){ map{ \$x[ \$d + r( \$n - \$d ) ] = r( 10 ); printf "\r@x"; \$x[ \$d ] = \$c[ \$d ] }1..1e5 } ##```## -e"sub r{int rand(pop||10)};@c=map{r}1..(\$n=pop);for\$d(0..\$n-1){map{\$x[\$d+r(\$n-\$d)]=r,print qq[@x\r]}1..1e5;\$x[\$d]=\$c[\$d]}" -e"sub r{int rand(pop||10)};\$n=pop;@c=map{r}1..\$n;for\$d(0..\$n-1){map{\$x[\$d+r(\$n-\$d)]=r,print qq[@x\r]}1..1e5;\$x[\$d]=\$c[\$d]}" -e"\$n=pop;for\$d(0..\$n-1){map{\$x[\$d+rand(\$n-\$d)]=int(rand 10),print qq[@x\r]}1..1e5;}" -e"for\$d(0..(\$n=pop)-1){map{\$x[\$d+rand(\$n-\$d)]=int(rand 10),print qq[@x\r]}1..1e5}" -l15e"for\$d(0..(\$n=pop)-1){map{\$x[\$d+rand(\$n-\$d)]=int(rand 10),print @x}1..1e5}" -l15e"for\$d(0..(\$n=pop)-1){\$x[\$d+rand(\$n-\$d)]=int(rand 10),print@x,for+1..1e5}" -l15e"for\$d(0..(\$n=pop)-1){\$x[\$d+rand(\$n-\$d)]=rand(10)&15,print@x,for+1..1e5}" -l15e"for\$d(0..(\$n=pop)-1){\$x[\$d+rand\$n-\$d]=rand(10)&15,print@x,for+1..1e5}" ```