What about this instead?
for( my $i = 0; $i < 17; ++$i ) { my $j = $i; printf "%2u: %s\n", $i, join' ', map{ sprintf "%2u", $j = ( $j + 13 +) % 17 } 0 .. 16; }; 0: 13 9 5 1 14 10 6 2 15 11 7 3 16 12 8 4 0 1: 14 10 6 2 15 11 7 3 16 12 8 4 0 13 9 5 1 2: 15 11 7 3 16 12 8 4 0 13 9 5 1 14 10 6 2 3: 16 12 8 4 0 13 9 5 1 14 10 6 2 15 11 7 3 4: 0 13 9 5 1 14 10 6 2 15 11 7 3 16 12 8 4 5: 1 14 10 6 2 15 11 7 3 16 12 8 4 0 13 9 5 6: 2 15 11 7 3 16 12 8 4 0 13 9 5 1 14 10 6 7: 3 16 12 8 4 0 13 9 5 1 14 10 6 2 15 11 7 8: 4 0 13 9 5 1 14 10 6 2 15 11 7 3 16 12 8 9: 5 1 14 10 6 2 15 11 7 3 16 12 8 4 0 13 9 10: 6 2 15 11 7 3 16 12 8 4 0 13 9 5 1 14 10 11: 7 3 16 12 8 4 0 13 9 5 1 14 10 6 2 15 11 12: 8 4 0 13 9 5 1 14 10 6 2 15 11 7 3 16 12 13: 9 5 1 14 10 6 2 15 11 7 3 16 12 8 4 0 13 14: 10 6 2 15 11 7 3 16 12 8 4 0 13 9 5 1 14 15: 11 7 3 16 12 8 4 0 13 9 5 1 14 10 6 2 15 16: 12 8 4 0 13 9 5 1 14 10 6 2 15 11 7 3 16
In reply to Re^5: RFC: Is there a solution to the flaw in my hash mechanism? (And are there any others?)
by RichardK
in thread RFC: Is there a solution to the flaw in my hash mechanism? (And are there any others?)
by BrowserUk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |