Select Code to Download

C:\test>junk123
best_shuffle : There's a <1% chance that this data is random.
good_shuffle : There's a >50% chance, and a <75% chance, that this dat
+a is random.
bad_shuffle : There's a >5% chance, and a <10% chance, that this data 
+is random.

our $NUMTESTS   //= 1e6;
our $ASIZE      //= 4;
...
my @vals = ( 1..$ASIZE );

C:\test>junk123 -ASIZE=40 -N=1e5
best_shuffle : I can't handle 100000 choices without a better table.
...
best_shuffle : There's a >99.5% chance, and a <100% chance, that this 
+data is random.
good_shuffle : There's a >99.5% chance, and a <100% chance, that this 
+data is random.
bad_shuffle : There's a >99.5% chance, and a <100% chance, that this d
+ata is random.

C:\test>junk123 -ASIZE=40 -N=1e2
best_shuffle : There's a <1% chance that this data is random.
...
best_shuffle : There's a >50% chance, and a <75% chance, that this dat
+a is random.
good_shuffle : There's a >50% chance, and a <75% chance, that this dat
+a is random.
bad_shuffle : There's a >10% chance, and a <25% chance, that this data
+ is random.

C:\test>junk123 -ASIZE=11 -N=1e5
best_shuffle : There's a >75% chance, and a <90% chance, that this dat
+a is random.
...
best_shuffle : There's a >1% chance, and a <5% chance, that this data 
+is random.
good_shuffle : There's a >90% chance, and a <95% chance, that this dat
+a is random.
bad_shuffle : There's a >1% chance, and a <5% chance, that this data i
+s random.