4 lines
151 B
Common Lisp
4 lines
151 B
Common Lisp
(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))))
|