Memoize

Perl_List::MoreUtils_any_uniq

Perl の any と uniq

 
% reply
0> use List::MoreUtils qw(any uniq);
1> my @array = qw( aaa aaa bbb ccc aaa );
$res[0] = [
  'aaa',
  'aaa',
  'bbb',
  'ccc',
  'aaa'
]
 
2> any { /^a+/ } @array;
$res[1] = 1
 
3> uniq @array;
$res[2] = [
  'aaa',
  'bbb',
  'ccc'
]
 

CPAN - List::MoreUtils