diff options
Diffstat (limited to 'exercism/emacs-lisp/leap/leap.el')
-rw-r--r-- | exercism/emacs-lisp/leap/leap.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/exercism/emacs-lisp/leap/leap.el b/exercism/emacs-lisp/leap/leap.el new file mode 100644 index 0000000..234c14c --- /dev/null +++ b/exercism/emacs-lisp/leap/leap.el @@ -0,0 +1,15 @@ +;;; 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 |