flengyel-4clojure-solution65.clj

;; flengyel's solution to Black Box Testing
;; https://4clojure.com/problem/65

(fn blackbox [s]
  (cond
   (= (conj s {}) s) :map 
   (empty? s) (cond
         (= (clojure.set/union s #{}) #{}) :set
	       (= (conj (conj s 0) 1) [0 1]) :vector
	       :else :list)
   (= (clojure.set/union s s) s) :set
   (= (first (conj s s)) s) :list
   :else :vector))