Re^2: Algorithm for cancelling common factors between two lists of multiplicands

This works whether the arrays contain duplicate elements or not:

my %a = map { $_ => 1 } @a;
my %b = map { $_ => 1 } @b;

@c = grep { !$b{$_} } @a;
@d = grep { !$a{$_} } @b;
[download]

Comment on Re^2: Algorithm for cancelling common factors between two lists of multiplicands Download Code