|There's more than one way to do things
Gift Exchange Codeby agianni (Hermit)
|on Oct 29, 2008 at 20:31 UTC
agianni has asked for the wisdom of the Perl Monks concerning the following question:
Before I write this code myself, I thought I'd check to see if anyone has any suggestions of existing CPAN modules or code snippets that would help me along my way. I want to write a simple script to shuffle a bunch of people for a gift exchange. The complicating factor is that I want to make sure that significant others aren't matched with each other. So given a group of people a, b, c and d where a and b are SOs, a can be matched with anyone but b and vice versa while c and d can be matched with anyone. Any suggestions?