Lines Matching refs:seen
344 my %seen;
345 map { $seen{$_} = 1 } @_;
348 @pgs = grep { $seen{$_} } @pgs;
801 # Convert the first list to a hash with seen entries marked as 1-values
820 my %seen; # Set to 1 for everything in the first list
822 map { $seen{$_} = 1 } @$left;
824 return (grep { ! $seen{$_} } @$right);
859 my %seen;
860 return (grep { ++$seen{$_} == 1 } @_);
1360 my %seen; # Set to 1 for everything in the first list
1367 map { $seen{$_} = 1 } @$right;
1370 my @extra = grep { !$seen{$_} } @$left;
1378 my %seen;
1380 map { $seen{$_} = 1 } @$set;
1382 return ($seen{$element});
1400 # Convert the first list to a hash with seen entries marked as 1-values
1407 my %seen; # Set to 1 for everything in the first list
1412 map { $seen{$_} = 1 } @$left;
1414 return (grep { $seen{$_} } @$right);