Contents

unit module Leap:ver<4>;

sub is-leap-year ($year) is export {
  is-divisible($year, 400)
    || is-divisible($year, 4)
    && !is-divisible($year, 100);
}

sub is-divisible($year, $number) {
  $year % $number == 0 ?? True !! False;
}

Version data entries

83 entries across 83 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/perl6/exercises/leap/Example.pm6
trackler-2.2.1.97	tracks/perl6/exercises/leap/Example.pm6
trackler-2.2.1.96	tracks/perl6/exercises/leap/Example.pm6