• Twitter
• Facebook
• Tumblr
• Email

約4年に一度、2月29日が発生する閏年(うるうどし)かどうかを判定するには、次のロジックを素直に実装すれば良い。

• 4で割り切れる年は閏年
• ただし、100で割り切れる年は閏年ではない
• しかし、400で割り切れる年は閏年である

isLeap関数(サブルーチン)に西暦の年数を渡すと真偽値を返す。

;#
;#閏年の判定
;#
 
print isLeap(1000), "\n";
print isLeap(2000), "\n";
print isLeap(2004), "\n";
 
#----------------------------------------------------
#■閏年の判定
#----------------------------------------------------
sub isLeap{
    my $year = shift;
 
    return(
        #-- 400で割り切れる年は閏年 --#
        (($year % 400) == 0 )
        or
        #-- 100で割り切れず、4で割れれば閏年 --#
        ((($year % 100) != 0) and (($year % 4) == 0))
    );
}

結果は次のような感じになる。画面上には真偽値がそのまま表示されるため、大抵の環境では「ブランク」「1」「1」などとなるハズだ。

= 1000年　not 閏年 : 100で割り切れるため

= 2000年　閏年 : 100で割り切れるが、400で割れるため

= 2004年　閏年 : 100で割り切れず、4で割り切れるため

isLeapは次のように、そのままif文などに組み込めば良い。

if(isLeap($year)){print "$yearは閏年です";}

余談になるが、「Leap」は本来、次のような意味がある。

leap
【名】 跳躍｛ちょうやく｝、飛躍｛ひやく｝、躍進｛やくしん｝、急激｛きゅうげき｝な変化｛へんか｝、急上昇｛きゅうじょうしょう｝、急増｛きゅうぞう｝
【自動-1】 ピョンと飛ぶ、飛び跳ねる、跳ぶ、飛び越える◆jump では跳躍の「動作」に、leap では跳躍による「移動」に重点が置かれる
～英辞郎より引用

「leap day」で「うるう年」となる。

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email