Anonymous user
Leap year: Difference between revisions
Added Perl
(add Tcl) |
(Added Perl) |
||
Line 110:
return (year % 4 == 0);
}</lang>
=={{header|Perl}}==
<lang Perl>sub leap {
my $yr = $_[0];
if ($yr % 100 == 0) {
return ($yr % 400 == 0);
}
return ($yr % 4 == 0)
}</lang>
Or more concisely:
<lang Perl>sub leap {!($_[0] % 100) ? !($_[0] % 400) : !($_[0] % 4)}</lang>
=={{header|PHP}}==
|