Sorry about the formatting.
To illustrate, I slapped some extra code into that powerball
program I found here.
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my (@numbers, %normals, %powers, %chiral );
my $content;
unless (defined ($content = get('http://www.powerball.com/results/pbhist.txt'))) {
die "Cannot get PB history.\n";
}
@numbers = split /\n/, $content;
my @data;
foreach my $line (@numbers) {
next if ($line =~ /^!/);
@data = split(/\s/, $line);
shift @data; # throw away the date
$powers{pop @data}++;
my $drawing_odd = 1;
my $drawing_even = 0;
my $group_a = 0;
my $group_b = 0;
my $group_c = 0;
$chiral{total}++;
$chiral{totalnums} += 5;
foreach (@data) {
if ($_ % 2 == 0) {
$chiral{even}++;
$drawing_even++;
} else {
$chiral{odd}++;
$drawing_odd++;
}
if ($_ < 17) {
$chiral{group_a}++;
$group_a++;
} elsif ($_ < 33) {
$chiral{group_b}++;
$group_b++;
} else {
$chiral{group_c}++;
$group_c++;
}
}
$chiral{"${drawing_even}_even"}++;
$chiral{"$group_a-$group_b-$group_c"}++;
foreach (@data) {
# print "Normal: $_\n";
$normals{$_}++;
}
}
print "Normal Pick Rate:\n\n";
my @norm_sort = sort { $normals{$a} <=> $normals{$b} } keys %normals;
foreach (@norm_sort) {
print "$_ :\t($normals{$_})\t", "*" x $normals{$_}, "\n";
}
print "\nPower Pick Rate:\n\n";
my @power_sort = sort { $powers{$a} <=> $powers{$b} } keys %powers;
foreach (@power_sort) {
print "$_ :\t($powers{$_})\t", "*" x $powers{$_}, "\n";
}
print "\nNormal Picks:\t";
print join(" ", sort (@norm_sort0 .. 11)), "\n";
print "\nPower Picks:\t";
print join(" ", sort (@power_sort0 .. 3)), "\n";
print "\nOdd/Even:\n";
printf "\t ODD: %d (%0.1f%%)\n", $chiral{odd}, ($chiral{odd}/$chiral{totalnums})*100;
printf "\tEVEN: %d (%0.1f%%)\n", $chiral{even}, ($chiral{even}/$chiral{totalnums})*100;
printf "\n0 Even/5 Odd: %d (%0.1f%%)\n",
$chiral{"0_even"},
($chiral{"0_even"}/$chiral{total})*100;
printf "1 Even/4 Odd: %d (%0.1f%%)\n",
$chiral{"1_even"},
($chiral{"1_even"}/$chiral{total})*100;
printf "2 Even/3 Odd: %d (%0.1f%%)\n",
$chiral{"2_even"},
($chiral{"2_even"}/$chiral{total})*100;
printf "3 Even/2 Odd: %d (%0.1f%%)\n",
$chiral{"3_even"},
($chiral{"3_even"}/$chiral{total})*100;
printf "4 Even/1 Odd: %d (%0.1f%%)\n",
$chiral{"4_even"},
($chiral{"4_even"}/$chiral{total})*100;
printf "5 Even/0 Odd: %d (%0.1f%%)\n",
$chiral{"5_even"},
($chiral{"5_even"}/$chiral{total})*100;
printf "\n\nGroup A: %d (%0.1f%%)\n",
$chiral{"group_a"},
($chiral{"group_a"}/$chiral{totalnums})*100;
printf "\n\nGroup B: %d (%0.1f%%)\n",
$chiral{"group_b"},
($chiral{"group_b"}/$chiral{totalnums})*100;
printf "\n\nGroup C: %d (%0.1f%%)\n",
$chiral{"group_c"},
($chiral{"group_c"}/$chiral{totalnums})*100;
foreach my $k (sort {$chiral{$a} <=> $chiral{$b}} keys %chiral) {
my $v = $chiral{$k};
if ($k =~ /^\d\-/) {
printf "\n\n%s: %d (%0.1f%%)\n",
$k, $v, ($v/$chiral{total})*100;
}
}
print "\nDisclaimer:\n\tThis is not statistically accurate, except in that the drawings are guaranteed.\nThi
s is just a quick frequency analysis making no pretenses as to predictive accuracy.\n"
Ok, it's not beautiful code but it works and illustrates my
point. Let's examine the output:
Odd/Even:
ODD: 677 (50.5%)
EVEN: 663 (49.5%)
0 Even/5 Odd: 7 (2.6%)
1 Even/4 Odd: 38 (14.2%)
2 Even/3 Odd: 96 (35.8%)
3 Even/2 Odd: 81 (30.2%)
4 Even/1 Odd: 40 (14.9%)
5 Even/0 Odd: 6 (2.2%)
Group A: 464 (34.6%)
Group B: 417 (31.1%)
Group C: 459 (34.3%)
0-5-0: 1 (0.4%)
0-4-1: 3 (1.1%)
1-4-0: 3 (1.1%)
0-1-4: 3 (1.1%)
4-1-0: 4 (1.5%)
4-0-1: 7 (2.6%)
0-2-3: 8 (3.0%)
3-2-0: 9 (3.4%)
1-0-4: 9 (3.4%)
0-3-2: 9 (3.4%)
2-0-3: 11 (4.1%)
2-3-0: 14 (5.2%)
3-0-2: 16 (6.0%)
3-1-1: 20 (7.5%)
1-3-1: 20 (7.5%)
1-1-3: 26 (9.7%)
1-2-2: 33 (12.3%)
2-2-1: 34 (12.7%)
2-1-2: 38 (14.2%)
As you can see, you increase your odds by playing 2 odd/3 even
and playing 1-2-2, 2-2-1, or 2-1-2 (e.g. 1-2-2 means 1 ball from
first group, 2 balls from second group, 2 balls from third group).
What do you think of this? :) | [reply] |