Select Code to Download

for( my $i=0; $i<17; ++$i ) { 
    my $j =  1 + ( $i % ( 17 - 1 ) ); 
    printf "%2u: %s\n", $i, join' ', map{ sprintf "%2u", $j = ( $j + $
+i ) % 17 } 0 .. 16; 
};;

for( my $i=0; $i < 17; ++$i ) { 
    my $j = $i ||= 1; 
...
14: 11  8  5  2 16 13 10  7  4  1 15 12  9  6  3  0 14
15: 13 11  9  7  5  3  1 16 14 12 10  8  6  4  2  0 15
16: 15 14 13 12 11 10  9  8  7  6  5  4  3  2  1  0 16