Add q76

Author: davidkun

src/ex/q076.clj

@@ -0,0 +1,8 @@
+;; https://4clojure.oxal.org/#/problem/076
+ 
+(ns ex.q076)
+
+(defn ans
+  "Problem 76, Intro to Trampoline"
+  []
+  [1 3 5 7 9 11])

test/ex/q076_test.clj

@@ -0,0 +1,15 @@
+;; https://4clojure.oxal.org/#/problem/076
+ 
+(ns ex.q076-test
+  (:require [clojure.test :as t]
+            [ex.q076 :as sut]))
+
+(t/deftest test-q76
+  (t/testing "Problem 76, Intro to Trampoline"
+    (t/is (= (letfn
+              [(foo [x y] #(bar (conj x y) y))
+               (bar [x y] (if (> (last x) 10)
+                            x
+                            #(foo x (+ 2 y))))]
+               (trampoline foo [] 1))
+             (sut/ans)))))