in reply to Lotto checker...

G'day fishy,

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:

<Reveal this spoiler or all in this thread>

-- Ken

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]
      "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]
        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]

In Section Meditations