Add solved exercises

3 files changed, 70 insertions, 0 deletions

diff --git a/emacs-lisp/leap/README.md b/emacs-lisp/leap/README.md
new file mode 100644
index 0000000..a96c15f
--- /dev/null
+++ b/emacs-lisp/leap/README.md
@@ -0,0 +1,33 @@
+# Leap
+
+Given a year, report if it is a leap year.
+
+The tricky thing here is that a leap year in the Gregorian calendar occurs:
+
+```plain
+on every year that is evenly divisible by 4
+  except every year that is evenly divisible by 100
+    unless the year is also evenly divisible by 400
+```
+
+For example, 1997 is not a leap year, but 1996 is.  1900 is not a leap
+year, but 2000 is.
+
+If your language provides a method in the standard library that does
+this look-up, pretend it doesn't exist and implement it yourself.
+
+## Notes
+
+Though our exercise adopts some very simple rules, there is more to
+learn!
+
+For a delightful, four minute explanation of the whole leap year
+phenomenon, go watch [this youtube video][video].
+
+[video]: http://www.youtube.com/watch?v=xX96xng7sAE
+## Source
+
+JavaRanch Cattle Drive, exercise 3 [http://www.javaranch.com/leap.jsp](http://www.javaranch.com/leap.jsp)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.
diff --git a/emacs-lisp/leap/leap-test.el b/emacs-lisp/leap/leap-test.el
new file mode 100644
index 0000000..f6cb597
--- /dev/null
+++ b/emacs-lisp/leap/leap-test.el
@@ -0,0 +1,24 @@
+;;; leap-test.el --- Tests for Leap exercise (exercism)
+
+;;; Commentary:
+
+;;; Code:
+(load-file "leap.el")
+
+(ert-deftest vanilla-leap-year ()
+  (should (leap-year-p 1996)))
+
+(ert-deftest any-old-year ()
+  (should-not (leap-year-p 1997)))
+
+(ert-deftest non-leap-even-year ()
+  (should-not (leap-year-p 1997)))
+
+(ert-deftest century ()
+  (should-not (leap-year-p 1900)))
+
+(ert-deftest exceptional-century ()
+  (should (leap-year-p 2000)))
+
+(provide 'leap-test)
+;;; leap-test.el ends here
diff --git a/emacs-lisp/leap/leap.el b/emacs-lisp/leap/leap.el
new file mode 100644
index 0000000..a006ffb
--- /dev/null
+++ b/emacs-lisp/leap/leap.el
@@ -0,0 +1,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