Select Code to Download

sub sig{ 
    my $sig = 0; 
...

print $sig = sig( $string );;
366

use Algorithm::Combinatorics qw[ combinations_with_repetition ];;

...
Ave. collisions:1438.05 Max. collisions:4061.00

pp\%stats;;

pp \%stats;;
{
...
  545 => 1,
  546 => 1,
}

C:\test>junk52 -K=6 -M=1 -S=0
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
+ 101

736000  Ave. collisions: 586.678088; Max. collisions:2567.000000

C:\test>junk52 -K=6 -M=1 -S=0
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
+ 101
...
53 131 223 311 409 503 613 719 827 941 1049 1163 1283 1423 1511 1619 1
+747 1877 2003 2129 2267 2377 2503 2657 2741 2861

736000  Ave. collisions: 44.996700; Max. collisions:227.000000

C:\test>junk52 -K=6 -M=16 -S=1
2741 2503 4481 7457 3671 7121 3413 6563 827 3301 7561 4909 3011 2657 3
+11 5167 223 6379 1877 2377 1619 7691 6271 1283 6007 3541

736000  Ave. collisions: 19.635207; Max. collisions:119.000000

C:\test>for /l %s in (1,17,1000) do @junk52 -K=6 -M=16 -S=%s
2741 2503 4481 7457 3671 7121 3413 6563 827 3301 7561 4909 3011 2657 3
+11 5167 223 6379 1877 2377 1619 7691 6271 1283 6007 3541
...
736000  Ave. collisions: 19.441816; Max. collisions:124.000000
1877 3671 7853 3797 2003 1283 2657 7457 4621 5849 3167 2741 3413 1423 
+6833 3923 5167 6133 827 2503 409 3011 2377 3301 5711 1747
736000  Ave. collisions: 21.433425; Max. collisions:132.000000

4751 613 409 53 1283 4057 719 7561 6563 7691 1511 5309 6007 7253 6133 
+941 6379 3923 223 1747 131 6971 1163 7853 6701 5167
736000  Ave. collisions: 16.439247; Max. collisions:108.000000