Re: How do I find if an array has duplicate elements, if so discard it?

use YAML;
use List::MoreUtils;

my @A = (1, 2, 3, 4, 5) ;
my @B = (6, 7, 7, 8, 9) ;
my @C = (10, 11, 12, 13, 15) ;

my @D = grep {List::MoreUtils::uniq(@$_) == @$_} (\@A, \@B, \@C);

print YAML::Dump(@D);
[download]

Comment on Re: How do I find if an array has duplicate elements, if so discard it? Download Code