Task

Determine whether a given year is a leap year in the Gregorian calendar.



See also

 Leap year (wiki)


leap_year(Year) :-
    (   mod(Year, 4) =:= 0, mod(Year, 100) =\= 0 ->
        true
    ;   mod(Year, 400) =:= 0
    ).