Task

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



See also

 Leap year (wiki)


(defun leap-year-p (year)
  (destructuring-bind (fh h f)
      (mapcar #'(lambda (n) (zerop (mod year n))) '(400 100 4))
    (or fh (and (not h) f))))