#! 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
}

##</code><code>##

-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}"