Skip to content

Instantly share code, notes, and snippets.

@chrisvest

chrisvest/chrisvest-4clojure-solution65.clj

Forked from anonymous/chrisvest-4clojure-solution65.clj
Created May 5, 2011 12:23
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 chrisvest/956947 to your computer and use it in GitHub Desktop.
Save chrisvest/956947 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
chrisvest-4clojure-solution65.clj
;; chrisvest's solution to http://4clojure.com/problem/65
(fn [coll]
(let [x [:a :b]
y [:c :d]]
(if (= (count (conj coll x x)) (count (conj coll x)))
(if (= ((conj coll x) :a) :b) :map :set)
(if (= (first (conj coll x y)) y) :list :vector))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment