Skip to content

Instantly share code, notes, and snippets.

@hyone

hyone/hyone-4clojure-solution65.clj

Forked from anonymous/hyone-4clojure-solution65.clj
Created June 29, 2011 05:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hyone/1053185 to your computer and use it in GitHub Desktop.
Save hyone/1053185 to your computer and use it in GitHub Desktop.
Download ZIP
4clojure #65 - Black Box Testing
Raw
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))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment