Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Impressing Your Significant Other III

by roho (Chancellor)
on Jun 24, 2009 at 08:33 UTC ( #774302=note: print w/replies, xml ) Need Help??


in reply to Impressing Your Significant Other III

I use Perl to generate the family Christmas gift exchange list. This was a dreaded yearly chore because the exchange list had the following "rules": 1. Men exchanged gifts with men. 2. Women exchanged gifts with women. 3. Children exchanged gifts with children. Our family is composed of 5 siblings and their spouses with a total of 18 children among them. In addition, the children's exchange had to be weighted to compensate for one family with lots of childen so they didn't wind up exchanging gifts mostly within their own family. The Fisher-Yates shuffle algorithm is used to randomize the results so different pairings are generated each time it is run. This program has transformed a yearly chore into a breeze, and my wife no longer has to ask multiple times to have the list created.

"Its not how hard you work, its how much you get done."

  • Comment on Re: Impressing Your Significant Other III

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2020-02-19 10:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?










    Results (81 votes). Check out past polls.

    Notices?