Select Code to Download

#!/usr/bin/perl
use warnings;
...
}

print "array : @array \n";

0 0 : 6 12 2 9 15
0 1 : 6 2 12 9 15
...
0 14 : 6 2 9 12            15
0 15 : 6 2 9 12             15
0 16 : 6 2 9 12              15

    ($x, $y) = ($y, $x);
    @array[$j, $j+1] = @array[$j+1, $j];

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,