#!/usr/bin/perl -w

# Dati due array di interi dire se il primo e' sottoinsieme
# del secondo

use strict;
my(@primoArrayInt, @secondoArrayInt, $i, $j, $incluso, $trovato);

#@primoArrayInt = (1, 3);
@primoArrayInt = (1, 2);
@secondoArrayInt = (2, 4, 5, 1, 5, 6);

print "Elementi del primo array: @primoArrayInt\n";
print "Lunghezza del primo array: ".@primoArrayInt."\n";
print "Elementi del secondo array: @secondoArrayInt\n";
print "Lunghezza del secondo array: ".@secondoArrayInt."\n";

sub cerca {
    my ($elemento, @arInt);
    ($elemento, @arInt) = @_;
    my $trovato = 0;
    my $i = 0;
    while (($i < @arInt) && !$trovato) {
        print "Controllo l'elemento $i-esimo\n";
        if ($elemento == $arInt[$i]) {
            $trovato = 1; # leggi: true!
        }
        $i++;
    }
    return $trovato;
}

$incluso = 1;
$i = 0;
while (($i < @primoArrayInt) && $incluso) { 
    $incluso = $incluso && cerca($primoArrayInt[$i], @secondoArrayInt);
    $i++;
}

if ($incluso) {
    print "Incluso!\n";
}
else {
    print "Non incluso!\n";
}