...that 5 of Andrew's 212 friends share a birthday.
#!/usr/bin/perl
#monte carlo calculation on Andrew's Birthday question.
# In short, this code allows a general test of the question:
# "if I have x friends, what are the chances that any y of
# them share a birthday?" It does so using Monte Carlo technique.
# runs should be set high (at least 1000, maybe higher) to give a
# good answer. I don't know what gives good confidence here.
# init a few things. bdaymatches is how many friends share one birthday.
use constant friends => 212;
use constant runs => 10000;
use constant bdaymatches => 5;
$foundmatches = 0;
# this loop calls yeartally once per run, adding each run to the array of
# runs called fullrun.
for ($i = 1; $i <= runs; $i++)
{
@temp = &yeartally;
$fullrun[$i] = [ @temp ];
#print "@temp\n";
# printf "THIS IS A YEAR BREAK \n";
}
#debug printing of the array:
I am getting much closer to finishing my Video Game exhibit. I now have a good idea of what games I want to highlight.
If you have any of the following games or systems (or manuals, posters, boxes, etc.) and you would be willing to lend them out for some months starting in late June, 2010, please let me know. If you have any leads on this stuff, let me know.
If you think I've left something obvious out, note that I may already have it, but I will welcome suggestions.
Ultima I
Quake I
Game Gear and a representative game (Sonic something something?)
World of Warcraft (box/art/manuals; I don't need the disc itself)
Zork
XBox 360 and Beautiful Katamari
Nintendo Game and Watch handhelds
PSP, and games (Gran Turismo, perhaps)
iPhone or iPod Touch (a dummy unit would work fine)
I got interested in Olympic medal counts measured various ways, and ended up with this partly-complete spreadsheet.
Among other things, I've compiled medals by national population, and medals by athletes sent, at least for the top teams. I also put in some weighted stats where a Gold = 3, Silver = 2, and Bronze = 1.
Maybe most interestingly, I painfully went through EVERY country's "athletes awarded" counts, by hand-counting it off the pretty good CTV medal-count pages. "Athletes Awarded" is my own count of the number of each type of medal actually handed to competing athletes. This accounts for the fact that if you win the 4-man bobsled gold, four men actually get gold medals.
