Task

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



See also

 Leap year (wiki)


: leap-year? ( y -- ? )
  dup 400 mod 0= if drop true  exit then
  dup 100 mod 0= if drop false exit then
        4 mod 0= ;