in reply to Powerball Frequency Analyzer

I thought I'd have some fun with this, so I tried it. I had to use the:
http://www.powerball.com/powerball/winnums-text.txt
source. I had to do a little alteration in the loop to read the data from site (needed \s+ for the split) and remove the possibility of power balls greater than 39 (can't pick them now). This solution is elegant I think but you all can comment: 
foreach $line(@numbers) {
    next if ($line =~ /^!/);
    @data = split(/\s+/, $line);
    shift @data;  # discard date
    @data = reverse(@data);
    shift @data if ( @data > 6); # discard power play number if there.
    $pb = shift @data; 

    $powerb{$pb}++ if($pb<40);
    
    foreach (@data) {
        $normals{$_}++;
    }
}

[download]

Replies are listed 'Best First'.
Re^2: Powerball Frequency Analyzer
by jdporter (Paladin) on Feb 17, 2011 at 16:13 UTC

    Meh. This is elegant: 

    my $content = get(...);


my @accum = ( undef, (\%normals) x 5, \%powers );

for ( split /\n/, $content )
{
    my @data = split;
    $accum[$_]{$data[$_]}++ for 1 .. 6;
}

    [download]
    I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies.
[reply]
[d/l]
      PerlMonks - have you ever predicted accurately?
[reply]

In Section Code Catacombs