1 line
51 B
Perl
1 line
51 B
Perl
sub isleap { not $_[0] % ($_[0] % 100 ? 4 : 400) }
|
sub isleap { not $_[0] % ($_[0] % 100 ? 4 : 400) }
|