day2: fib and unless

clojure/src/two/core.clj

@@ -0,0 +1,11 @@
+(ns two.core)
+
+
+(defn- nextfib [[a b]] [(+ a b) a])
+
+(def fibs
+  (map first
+       (iterate nextfib [1 1])))
+
+(defmacro unless [test body else]
+  (list 'if (list 'not test) body else))