Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Mutually Exclusive Elements

by Zed_Lopez (Chaplain)
on Dec 03, 2004 at 00:17 UTC ( [id://412005]=note: print w/replies, xml ) Need Help??


in reply to Mutually Exclusive Elements

I'm not sure about your requirements. I wrote a solution that produces

[1,2,3] [3,4,7] [3,6,9]

This seems more consistent with your stated requirements than your example results. 4 & 8 are equally common -- they appear twice in the arrays. 4 occurs before 8 in $b, thus the elements appear in $b's order of insertion.

At any rate, my algorithm was:

  1. Traverse all the arrays, counting how many of each element appear.
  2. Sort the results in order of ascending frequency and assign it to @frequency.
  3. Take the last of these (i.e. most frequent, or tied for most frequent, and thus common to all) and assign it to $common.
  4. Die with an error message if $common < the number of arrays -- there wasn't really an element common to all.
  5. Start building the results for each array:
    1. First, assign $common.
    2. Then, for each element in @frequency, test if that element is present in the current array. If it is, assign it to the results for this array. Do this X-1 times (assigning $common took care of one element.)
    3. Sort this array's results.
  6. Push an arrayref for this array's results on your final results array.

Updated: my unstated assumption in the above was that that code would be in a subroutine to be called like so:

my ($a_, $b_, $c_) = mutually_exclusive($X, $a, $b, $c);

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2024-04-19 14:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found