in reply to Pair of items
If you know the items are always sorted, there's a routine that's likely to be faster than anything else shown here as I post this:
my $ok = no_common_item_in_these_numeric_sorted_lists( [1, 2, 3], [2, 4, 6] ); sub no_common_item_in_these_numeric_sorted_lists { my @x = @{+shift}; # these are copies my @y = @{+shift}; ## presuming numeric sorted while (@x or @y) { shift @x, next if not @y or $x[0] < $y[0]; shift @y, next if not @x or $x[0] > $y[0]; return 0; # not ok - we found an identical item } return 1; # ok - we found no identical items }
-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: •Re: Pair of items
by Simpleton (Initiate) on Jul 31, 2003 at 07:12 UTC | |
by merlyn (Sage) on Jul 31, 2003 at 11:59 UTC | |
by Simpleton (Initiate) on Aug 09, 2003 at 02:25 UTC |
In Section
Seekers of Perl Wisdom