Task

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



See also

 Leap year (wiki)


  [ dup 400 mod 0 = iff [ drop true  ] done
    dup 100 mod 0 = iff [ drop false ] done
          4 mod 0 = ]                       is leap? ( n --> b )