First stab at Clojure print-diamond

print-diamond.clj

(defn print-diamond [letter]
  (let [alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        position-of (fn [letter] (inc (- (int letter) (int \A))))
        number-of-letters (position-of letter)
        dashes (fn [n] (repeat n \-))
        fixed-text-for (fn [letter] (concat (dashes (dec (position-of letter))) (list letter)))
        template (map fixed-text-for (take number-of-letters alphabet))
        pad-with-trailing-dashes (fn [index line] (concat line (dashes (dec (- number-of-letters index)))))
        top-right-quadrant (map-indexed pad-with-trailing-dashes template)
        top-left-quadrant (map reverse (map rest (take number-of-letters top-right-quadrant)))
        top-half (map concat top-left-quadrant top-right-quadrant)
        diamond (concat top-half (drop 1 (reverse top-half)))]
    (doseq [line (map #(apply str %) diamond)]
      (println line))))