Entries from 2009-03-14 to 1 day

円周率クイズをPerlで解く

今日が円周率の日だったとは気付かなかった… クイズにチャレンジ。 2009-03-14 - 結城浩のはてな日記 #!/usr/bin/perl # pi2date.pl use strict; use warnings; use Math::BigFloat qw(bpi); my @days = qw(31 29 31 30 31 30 31 31 30 31 30 31); my $max_l…