letters->numbers in Clojure, Take 2

lton2.clj

(defn l->n [input]
  "Given a string and the sequence a = 1, b = 2, ... z = 26, compute the total for the string.
   Get a bonus point if the sequence 'zachary' appears in the string."
  (let [point-values (zipmap (map char "abcdefghijklmnopqrstuvwxyz")
                             (range 1 27))
        bonus-point (if (re-find #"zachary" (clojure.string/lower-case input)) 1 0)]
    (->> input
         (map char)
         (map point-values)
         (cons bonus-point)
         (reduce +))))