Help for this page

Select Code to Download


  1. or download this
    $ha = [[1,2],
       [5,5,5],
...
       [1,2],
       [2,1],
       [5,5,5]];
  2. or download this
    use Set::Bag;
my $bag_a = Set::Bag->new();
my $bag_b = Set::Bag->new();
  3. or download this
    my @ser_a;
for my $aref (@$ha) {
...
   print "not ";
}
print "equal\n";