Select Code to Download

sub is_leap {
    my $year = shift;
...
    return 1 if $year % 100;
   !($year % 400)
}

#!/usr/bin/perl

...
browseruk 1410/s        --       -3%      -24%
isleap    1454/s        3%        --      -21%
abigail   1844/s       31%       27%        --