#!/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";

$incluso = 1;
$i = 0;
while (($i < @primoArrayInt) && $incluso) { 
    $trovato = 0;
    $j = 0;
    while (($j < @secondoArrayInt) && !$trovato) {
        print "Confronto: $primoArrayInt[$i] e $secondoArrayInt[$j]\n";
        if ($primoArrayInt[$i] == $secondoArrayInt[$j]) {
	    $trovato = 1;
	}
	$j++;
    }
    $incluso = $incluso && $trovato;
    $i++;
}

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


my($x, $y);

$incluso = 1;
foreach $x (@primoArrayInt) {
    $trovato = 0;
    foreach $y (@secondoArrayInt) {
        print "Confronto: $x e $y\n";
        if ($x == $y) {
	    $trovato = 1;
	}
    }
    $incluso = $incluso && $trovato;
} 

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