Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Powerball Frequency Analyzer

by perlNinny (Beadle)
on Feb 16, 2011 at 21:05 UTC ( #888571=note: print w/ replies, xml ) Need Help??


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{$_}++; } }


Comment on Re: Powerball Frequency Analyzer
Download Code
Re^2: Powerball Frequency Analyzer
by jdporter (Canon) 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; }
    I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies.
      PerlMonks - have you ever predicted accurately?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://888571]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2015-07-06 10:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (71 votes), past polls