Add q65

Author: davidkun

src/ex/q065.clj

@@ -0,0 +1,13 @@
+;; https://4clojure.oxal.org/#/problem/065
+ 
+(ns ex.q065)
+
+(defn ans
+  "Problem 65, Black Box Testing"
+  [coll]
+  (cond
+    (= :kun (:david (conj coll [:david :kun]))) :map
+    (= (inc (count coll)) (count (conj coll [:david :kun] [:david :kun]))) :set
+    (= :kun (first (conj coll :david :kun))) :list
+    (= :kun (last (conj coll :david :kun))) :vector
+    :else :unknown))

test/ex/q065_test.clj

@@ -0,0 +1,12 @@
+;; https://4clojure.oxal.org/#/problem/065
+ 
+(ns ex.q065-test
+  (:require [clojure.test :as t]
+            [ex.q065 :as sut]))
+
+(t/deftest test-q65
+  (t/testing "Problem 65, Black Box Testing"
+    (t/is (= :map (sut/ans {:a 1, :b 2})))
+    (t/is (= :list (sut/ans (range (rand-int 20)))))
+    (t/is (= :vector (sut/ans [1 2 3 4 5 6])))
+    (t/is (= [:map :set :vector :list] (map sut/ans [{} #{} [] ()])))))