Column problem

columnz.clj

(def input [[1,2,3],[1,3,4],[1,5,6]])

(defn is-list-unique [input]
    "Takes a list and returns first element if they are all the same and sum of elements if not"
  	(if (every? #{(first input)} (rest input)) 
     (first input) 
     (apply + input))
  )

(defn are-lists-unique [input]
  	(map is-list-unique (apply map list input))
  )