hadronzoo · August 29, 2015 14:00
diff --git a/minmax_by_codepoint.clj b/minmax_by_codepoint.clj
 (defn minmax-by-codepoint [s]
  (let [sorted (reduce (fn [r [c cnt]]
                         (update-in r [cnt] #((fnil conj (sorted-set)) % c)))
                       (sorted-map)
                       (frequencies s))
        get-char (juxt (comp first second) first)]
 
    [(get-char (first sorted))
     (get-char (last sorted))]))
	(defn minmax-by-codepoint [s]
	(let [sorted (reduce (fn [r [c cnt]]
	(update-in r [cnt] #((fnil conj (sorted-set)) % c)))
	(sorted-map)
	(frequencies s))
	get-char (juxt (comp first second) first)]

	[(get-char (first sorted))
	(get-char (last sorted))]))