Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Pair of items

by PhiRatE (Monk)
on Jul 30, 2003 at 06:29 UTC ( [id://279086]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    for ($ref=0; $ref<$#items; $ref++) {
        for (@{$items[$ref]}) {
            if (!$contains{$_}) { $contains{$_} = [$ref]; } else { push @{
    +$contains{$_}}, $ref; }
        }
    }
    
  2. or download this
    sub get_pairs {
        my %invalids = ();
    ...
    }
    
    @all_matches = get_pairs(2,3,4)
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://279086]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (4)
As of 2024-03-29 15:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found