Select Code to Download

use strict;
my $savedseed = 1234567;
...
}
print "\n";
print $savedct+1, ": ", rand, "\n";

1: 0.03509521484375
2: 0.139495849609375
...
5: 0.123077392578125

6: 0.814605712890625