blob: a006ffb04f4db659d85a1c734bd7b0020335081b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
;;; leap.el --- Leap exercise (exercism)
;;; Commentary:
;;; Code:
(defun leap-year-p(year)
(and (= 0 (% year 4))
(or (/= 0 (% year 100))
(= 0 (% year 400)))))
(provide 'leap-year-p)
;;; leap.el ends here
|