loto

loto.pl

use strict;
use warnings;

use Data::Dumper;

my $numbers = []; 


#repetam PANA CAND (de unde si while) avem 6 elemente in $numbers
while (scalar @$numbers < 6){ 
    my $extracted_number = int (1 + rand(8));

    my @extracted_number_seen = grep { $extracted_number == $_ } @$numbers;

    #desi @extracted_number_seen e lista, va avea cel mult un element in ea.
    if (scalar @extracted_number_seen){
        #inseamna ca numarul a mai fost extras o data, nu facem nimic aici...cel mult un print de debug
        print "numbers already extracted @extracted_number_seen\n";
    } else {
        #nemaifiind extras numarul, il luam de bun  si-l folosim
        push @$numbers, $extracted_number;
    }   
}

print "Numbers: ".Dumper($numbers);