Initial Commit

lfe/leap/Makefile

@@ -0,0 +1,19 @@
+ERL     = $(shell which erl)
+LFETOOL = $(shell which lfetool)
+REBAR   = $(shell which rebar)
+
+ifeq ($(ERL),)
+  $(error Can't find Erlang executable 'erl')
+else ifeq ($(LFETOOL),)
+  $(error Can't find lfetool)
+else ifeq ($(REBAR),)
+  $(error Can't find rebar)
+endif
+
+get-deps: ; $(REBAR) get-deps compile
+
+clean: ; rebar clean
+
+compile: ; $(REBAR) compile
+
+test: compile; $(LFETOOL) tests unit

lfe/leap/README.md

@@ -0,0 +1,41 @@
+# Leap
+
+Write a program that will take a year and report if it is a leap year.
+
+The tricky thing here is that a leap year 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
+
+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
+
+* * * *
+
+For installation and learning resources, refer to the
+[exercism help page](http://help.exercism.io/getting-started-with-lfe.html).
+
+For running the tests provided, you will need `make`.  Open a terminal
+window and run the following from the exercise directory:
+
+    make test
+
+And you should now be able to see the results of the test suite for
+the exercise.
+
+## Source
+
+JavaRanch Cattle Drive, exercise 3 [view source](http://www.javaranch.com/leap.jsp)

lfe/leap/rebar.config

@@ -0,0 +1,8 @@
+{erl_opts, [debug_info, {src_dirs, ["test"]}]}.
+{lfe_first_files, []}.
+{deps_dir, ["deps"]}.
+{eunit_compile_opts,
+ [{src_dirs, ["test"]}]}.
+{deps,
+ [{lfe,   ".*", {git, "git://github.com/rvirding/lfe.git", {tag, "v0.9.2"}}},
+  {ltest, ".*", {git, "git://github.com/lfex/ltest.git",   {tag, "0.6.1"}}}]}.

lfe/leap/src/leap.app.src

@@ -0,0 +1,11 @@
+%% -*- erlang -*-
+{application, 'leap',
+ [{description, ""},
+  {vsn, "0.0.1"},
+  {modules,
+   ['leap']},
+  {registered, []},
+  {applications,
+   [kernel, stdlib]},
+  {included_applications, []},
+  {env, []}]}.

lfe/leap/test/leap-tests.lfe

@@ -0,0 +1,18 @@
+(defmodule leap-tests
+  (behaviour ltest-unit)
+  (export all))
+
+(include-lib "eunit/include/eunit.hrl")
+(include-lib "ltest/include/ltest-macros.lfe")
+
+(deftest leap-year
+  (is (leap:leap-year 1996)))
+
+(deftest non-leap-year
+  (is-not (leap:leap-year 1997)))
+
+(deftest century
+  (is-not (leap:leap-year 1900)))
+
+(deftest fourth-century
+  (is (leap:leap-year 2400)))