4clojure第65个问题：黑盒测试序列类型

(ns for-clojure.problem65)

(defn black-box-testing
  "黑盒测试：根据序列的特点判断序列的类型，不能使用类型判断等函数"
  [v]
  (cond
          (:a (conj v [:a 1])) :map
          (< (- (count (conj v 1 1)) (count v)) 2) :set
          (= (conj v 1 2) (cons 2 (cons 1 v))) :list
          :else :vector))

(= :map (black-box-testing {:a 1, :b 2}))
(= :vector (black-box-testing [1 2 3 4 5 6]))
(= :set (black-box-testing #{10 (rand-int 5)}))
(= :list (black-box-testing (range (rand-int 20))))
(= [:map :set :vector :list] (map black-box-testing [{} #{} [] ()]))

map还可以用(conj {} nil) conj 一个ni的map不变。

另外提交答案后看其他牛人的答案用str来实现，确实str会把序列类型的特殊符号包裹起来。