Sha256: ebe02a97b7f1c059810d0521f2b3f10fedaebf75cad5c37b896a844e9f8734de

Contents?: true

Size: 260 Bytes

Versions: 203

Compression:

Stored size: 260 Bytes

Contents

package Example;
use warnings;
use strict;

sub is_leap {
    my $year = shift;
    divisible_by($year, 400)
        or divisible_by($year, 4) and !divisible_by($year, 100)
        ? 1 : 0;
}

sub divisible_by {
    $_[0] % $_[1] == 0 ? 1 : 0;
}

__PACKAGE__;

Version data entries

203 entries across 203 versions & 1 rubygems

Version Path
trackler-2.1.0.48 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.47 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.46 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.45 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.44 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.43 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.42 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.41 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.40 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.39 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.38 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.37 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.36 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.34 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.33 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.32 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.31 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.30 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.29 tracks/perl5/exercises/leap/Example.pm
trackler-2.1.0.28 tracks/perl5/exercises/leap/Example.pm