use strict;

my @zahlen = @ARGV;
if (scalar @zahlen ne 6) { die "Usage $0 1 2 3 4 5 6\n"; }

foreach (@zahlen) {
    if (($_ > 49) || ($_ < 1)) { die "[ $_ ]Zahl muss zwischen 0 - 49 liegen\n"; }
}

my $max_hits = 0;
my $runs = 0;
my $numbers;
while ($max_hits < 6) {
    $runs++;

    $numbers = &create_rnd(); 
#    foreach (keys %$numbers) { print $_."\t"; }
    my $hits = &match($numbers, @zahlen);

    if ($hits > $max_hits) { 
    $max_hits  = $hits;
    print "Run $runs, new Max: $max_hits\n";
    }
}

print "\nFinished after $runs Runs \n";
exit;


sub create_rnd()
{
        my $numbers; 
    my $range = 49;

    my $c_nr = 0;
    while ($c_nr <=  5) {
            my $n = int(rand($range));
        if (defined $numbers->{$n}) { 
#            print "$n Oops gibts schon\n";
            next; 
        } else {
                  $numbers->{$n} = $c_nr;
            $c_nr++;
        }
    }

    return $numbers;
}


sub match()
{
    my $numbers = shift;
    my @mine    = @_;

    my $hits    = 0;

    foreach (@mine) {
    if (defined $numbers->{$_}) { $hits++; }
    }
    return $hits;
}

exit;