2019-02-06 09:36:56 +00:00
|
|
|
;;; leap.el --- Leap exercise (exercism)
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(provide 'leap)
|
|
|
|
|
|
|
|
|
|
(defun leap-year-p (year)
|
|
|
|
|
"Return whether a given year is a leap-year."
|
2019-02-06 11:03:57 +00:00
|
|
|
(when (zerop (mod year 4))
|
|
|
|
|
(if (zerop (mod year 100))
|
|
|
|
|
(when (zerop (mod year 400)) t)
|
2019-02-06 09:36:56 +00:00
|
|
|
t)))
|
|
|
|
|
|
|
|
|
|
;;; leap.el ends here
|
