note
tadman
Tweakism to get something like this:
<BLOCKQUOTE><CODE>sub is_ok
{
my ($x, $y) = @_;
my %x;
@x{@$x} = 1;
return !grep { exists($x{$_}) } @$y;
}
</CODE></BLOCKQUOTE>
You seem to create a hash and then just iterate over its keys, instead of just using the straight list. Here I just make one hash and use the other list raw.
<BR>
<BR>
<TT>grep</TT> is used to produce a list of matches, which is then negated, so that it returns a true value if there are no matches.
278953
278959