Skip to content

Instantly share code, notes, and snippets.

Created June 29, 2011 05:06
Show Gist options
  • Save anonymous/1053184 to your computer and use it in GitHub Desktop.
Save anonymous/1053184 to your computer and use it in GitHub Desktop.
;; 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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment