My Solution to Project Euler in Perl

为了检验我的Perl学得如何，我决定在Project Euler上试试。

Problem 19

要看每个月的第一天是不是星期日，可以想象成从1900.01.01起开始计数，看这个月的第一天所对应的数模7是不是零就行了。比如1900.01.01是星期一，记为1.一个月之后的1900.02.01为1+31，即32，模7得4，所以这天是星期四。

#!perl my $today = 2; my $total = 0; my @months = (0,31,28,31,30,31,30,31,31,30,31,30,31); for my $year (1901..2000) { @months[2] = ($year % 4 == 0) ? 29 : 28; for (1..12) { $today += @months[$_]; ++$total if ($today % 7 == 0); $today %= 7; } } print $total; # 171