Select Code to Download

P:\test>Perl -v

...

P:\test>Perl -V:randbits
randbits='15';

#! perl -slw
use strict;
...
P:\test>junk
1 million attempts produced 32768 keys
between 00000000 and fffdffff

#! perl -slw
use strict;
...
P:\test>junk
Produced 94 unique keys before duplicating
between 001bffff and fbc1ffff

#! perl -slw
use strict;
...
P:\test>junk
1 million attempts produced 994758 keys
between 00000000 and ffae0137

Produced 17891 unique keys before duplicating
between 00000000 and fba0116f
...
P:\test>junk
Produced 15537 unique keys before duplicating
between 00000000 and fe068a77