hyone · June 29, 2011 05:06
diff --git a/hyone-4clojure-solution65.clj b/hyone-4clojure-solution65.clj
 ;; hyone's solution to Black Box Testing
 ;; https://4clojure.com/problem/65

 (defn seq-type [coll]
  (let [base (empty coll)]
    (cond
      (= base {})  :map
      (= base #{}) :set
      (= base '()) (if (reversible? coll) :vector :list))))
	;; hyone's solution to Black Box Testing
	;; https://4clojure.com/problem/65

	(defn seq-type [coll]
	(let [base (empty coll)]
	(cond
	(= base {}) :map
	(= base #{}) :set
	(= base '()) (if (reversible? coll) :vector :list))))