;;; leap.el --- Leap exercise (exercism)

;;; Commentary:

;;; Code:
(defun divisible-by-p (n d)
  (equal 0 (% n d)))

(defun leap-year-p (year)
  (and (divisible-by-p year 4)
       (or (not (divisible-by-p year 100))
           (divisible-by-p year 400))))

(provide 'leap-year-p)
;;; leap.el ends here