Utiliser des ensembles de données

Le module Set::Bag permet de déclarer des ensembles puis calculer les unions, les sommes ou les intersections de ces ensembles

use Set::Bag;

my $ba = Set::Bag -> new(pommes => 3, poires => 2);
my $bb = Set::Bag -> new(citron => 3, poires => 1);

print "Total ba bb = ". $ba -> sum($bb) ."\n";
print "Union ba bb = ". $ba -> union($bb) ."\n";
print "Intersection ba bb = ". $ba -> intersection($bb) ."\n";