martintrojer · December 16, 2015 22:29
diff --git a/col-size.clj b/col-size.clj
 (defn size [o]
  (-> o pr-str count))

 (defn col-size [c]
  (let [s (if (map? c) (seq c) (map-indexed vector c))]
    (->> s
         (map (fn [[k v]] [k (size v)]))
         (sort-by second)
         reverse)))
diff --git a/third.clj b/third.clj
 (defn third [col]
  (-> col next next first))
	(defn size [o]
	(-> o pr-str count))

	(defn col-size [c]
	(let [s (if (map? c) (seq c) (map-indexed vector c))]
	(->> s
	(map (fn [[k v]] [k (size v)]))
	(sort-by second)
	reverse)))