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