Help for this page
my @a = ( 1, 2, 3 ); ... @hash{ @$left, @$right } = (); return scalar keys %hash == scalar @$left; }
use List::MoreUtils qw/any/; ... } keys %left, keys %right; return 1; }
use List::MoreUtils qw/any/; ... return 0 if any{ $bag{$_} } keys %bag; return 1; }
use Set::Bag; ... && $bag_b->difference($bag_a) eq '()'; return 0; }
www.com | www.net | www.org
No recent polls found