Add q27

davidkun · Jul 25, 2024 · 3e0c72f · 3e0c72f
1 parent 164e681
commit 3e0c72f
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/src/ex/q027.clj b/src/ex/q027.clj
@@ -0,0 +1,8 @@
+;; https://4clojure.oxal.org/#/problem/027
+
+(ns ex.q027)
+
+(defn ans 
+  "Problem 27, Palindrome Detector"
+  [coll]
+  (= (seq coll) (reverse coll))) ;; O(n) time, but concise
diff --git a/test/ex/q027_test.clj b/test/ex/q027_test.clj
@@ -0,0 +1,13 @@
+;; https://4clojure.oxal.org/#/problem/027
+
+(ns ex.q027-test
+  (:require [clojure.test :as t]
+            [ex.q027 :as sut]))
+
+(t/deftest test-q27
+  (t/testing "Problem 27, Palindrome Detector"
+    (t/is (false? (sut/ans '(1 2 3 4 5))))
+    (t/is (true? (sut/ans "racecar")))
+    (t/is (true? (sut/ans [:foo :bar :foo])))
+    (t/is (true? (sut/ans '(1 1 3 3 1 1))))
+    (t/is (false? (sut/ans '(:a :b :c))))))