Re: Lotto checker...

Applying this advice from Arunbear and bigj:

my %draw = map { $_ => 1 } qw( ... );
my @bets = ( ... );
[download]

You can reduce your original code, which is somewhat difficult to read and maintain, to just this:

print for map {
    my $hits = grep { $draw{$_} } @$_;
    "@$_ --> $hits" . ($hits > 2 && ' *')
} @bets;
[download]

My test code and results are in the spoiler:

-- Ken

Comment on Re: Lotto checker... Select or Download Code

Replies are listed 'Best First'.
Re^2: Lotto checker... by fishy (Friar) on Apr 16, 2014 at 14:22 UTC
Venerable answers. Flexing my mind and stretching my Perl. Many Thanks, Monks! P.D. kcott: just concat "\n" at print argument	[reply]
Re^3: Lotto checker... by kcott (Archbishop) on Apr 16, 2014 at 22:14 UTC
"kcott: just concat "\n" at print argument" No. There's no need to do that. Look at the full code and output I posted in the spoiler. Note that the output doesn't require additional newlines. Did you run it? Did you get a different result? See the first line of that code: `#!/usr/bin/env perl -l` [download] Look at "perlrun: Command Switches" to see what the '`-l`' switch does. -- Ken	[reply] [d/l] [select]
Re^4: Lotto checker... by fishy (Friar) on Apr 17, 2014 at 17:53 UTC
Right, Ken. I got confused because I ran it with `/usr/bin/env perl -l` and got `/usr/bin/env: perl -l: No such file or directory` Now, running it with just `/usr/bin/perl -l` I get the right result. So, no need to append "\n" and another new thing I've learned. Thanks a lot!	[reply] [d/l] [select]