Select Code to Download

#! perl -slw
use strict;
...
print "\nActual frequencies:";
printf "$_ : %.1f\n", $chosen{ $_ } / ($ITERS * $PICKS) * 100
    for sort{ $chosen{ $a } <=> $chosen{ $b } } keys %chosen;

C:\test>618798 -ITERS=1e4 -PICKS=1
Required frequencies
...
D : 12.4
E : 25.3
F : 51.1

C:\test>618798 -ITERS=1e4 -PICKS=2
Required frequencies
...
D : 15.4
E : 29.5
F : 40.8

C:\test>618798 -ITERS=1e4 -PICKS=3
Required frequencies
...
D : 21.6
E : 24.0
F : 24.9

C:\test>618798 -ITERS=1e4 -PICKS=6
Required frequencies
...
C : 16.7
E : 16.7
B : 16.7