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

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

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