#!/usr/bin/perl -w
#
# Lotto checking script. stupid idea, but heck, I'm crazy enough to try it.
#

my @picks;

@picks = (
		  [  5,  7, 11, 13, 26, 41 ],
		  [  7, 11, 14, 17, 29, 42 ],
		  [ 11, 19, 20, 21, 25, 32 ],
		  [ 10, 11, 13, 17, 25, 34 ]
		 );

my @winners = ( 2, 6, 9, 16, 18, 30, 28 );
my @scores = map { 0 } @picks;

for my $n ( @winners ) {
  for my $p ( 0 .. $#picks ) {
	my @set = @{$picks[ $p ]};
	if ( grep /^$n$/, @set ) {
	  $scores[ $p ]++;
	  if ( $n eq $winners[ -1 ]) {
		$scores[ $p ] -= 0.5;
	  }
	}
  }
}

for my $s( 0..$#scores ) {
  print "Line ", $s + 1, ": ";

  if ( $scores[ $s ] >= 6 ) {
	print "jackpot!\n";
  } elsif ( $scores[ $s ] > 3 ) {
	print "match ", int( $scores[ $s ]);
	print " + bonus" if ( $scores[ $s ] != int( $scores[ $s ]));
	print "!\n";
  } else {
	print "nothing useful ($scores[ $s ]).\n";
  }
}