Intersect and Union Array (similar and match in array)

[asylu3]

@a1 = (1,2,3);
@a2 = (4,2,5);

# intersect -> @c
foreach $a (@a2) { push @c,$a if grep {$a eq $_} @a1; }
#บรรทัดบนหมายความว่า ในแต่ละ element ของ a2 ให้ทำการ push ลงใน c ถ้าค่าของ element ตัวนั้นเหมือนเท่ากับ element ใน a1

print "Intersect: ",@c,"n";

# union -> @d
foreach $a (@a2) { push @d,$a unless grep {$a eq $_} @a1; }

foreach $x (@d) {
push @a1,$x;
}

print "Union: ",@a1,"n";



Output:

Intersect: 2
Union: 12345