gistfile1.clj

(defn read-text []
  (take-while (comp not empty?) (repeatedly read-line)))

(defn char<= [x y z]
  (and (>= 0 (compare x y)) (>= 0 (compare y z))))

(defn update-map [m letter]
  (let [letter (Character/toUpperCase letter)]
    (if (char<= \A letter \Z)
      (assoc m letter (inc (get m letter 0)))
      m)))

(defn stats [text]
  (reduce update-map {} (apply concat text)))

(defn display-stats [stats]
  (dorun (map (fn [[k v]] (printf "%s: %2d %s\n" k v (apply str (repeat v (char 177)))))
              (sort-by key stats))))

(display-stats (stats (read-text)))