分室の分室

【227-b】訂正：ユリウス暦は28年周期で曜日が循環する…

perl, 暦

　140年…ではなく、もっと少ない年数で循環しました。↓
#!/usr/bin/perl

use strict;
use warnings;

# mod7.pl       ユリウス暦が循環するかどうかを調べる (総当たり戦)
#
#   ユリウス暦：400年で100回の閏年がある。
#               365 * 400 + 100 = 146,100 日
#               この日数は 7 で割り切れない。その代わり…
my $yrs  = 4;
my $leap = 1;
my $base = 365 * $yrs + $leap;     # 365 * 4 + 1
my $i    = 1;
while (1) {
    if ($base * $i % 7 == 0) {
        print "$i： ", $i * $yrs, "年(", $i * $base, "日)\n";
        last;
    }
    ++$i;
}
__END__

実行結果。↓
 c:\usr\edit>mod7.pl
 7： 28年(10227日)

Permalink | コメント(0) | トラックバック(0) | 06:01