exercism exercises

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