The same birthday by teebee

for(p=8;n++<scale=99;){print"n=",n+1,", p=0";1-(4/A^8+p*=1-n/365)/scale=8}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page