Add q26

src/ex/q026.clj

@@ -0,0 +1,18 @@
+;; https://4clojure.oxal.org/#/problem/026
+
+(ns ex.q026)
+
+(defn -penultimate
+  "Return penultimate element or 0 if not enough elements"
+  [coll]
+  (if (> (count coll) 1)
+    (->> coll reverse second)
+    0))
+
+(defn ans
+  "Problem 26, Fibonacci Sequence"
+  [n]
+  (loop [cnt 1 fib [1]]
+    (if (>= cnt n)
+      fib
+      (recur (inc cnt) (conj fib (+ (last fib) (-penultimate fib)))))))

test/ex/q026_test.clj

@@ -0,0 +1,11 @@
+;; https://4clojure.oxal.org/#/problem/026
+
+(ns ex.q026-test
+  (:require [clojure.test :as t]
+            [ex.q026 :as sut]))
+
+(t/deftest test-q26
+  (t/testing "Problem 26, Fibonacci Sequence"
+    (t/is (= '(1 1 2) (sut/ans 3)))
+    (t/is (= '(1 1 2 3 5 8) (sut/ans 6)))
+    (t/is (= '(1 1 2 3 5 8 13 21) (sut/ans 8)))))