https://www.hackerrank.com/challenges/designer-pdf-viewer

solution.clj

#!/usr/bin/env boot

(require '[clojure.string :as string])

(defn- str->int [s]
  (Integer/parseInt s))

(defn- make-heights [s]
  (let [is (map str->int (string/split s #"\s+"))
        cs (map #(char (+ 97 %)) (range 26))]
    (zipmap cs is)))

(defn- word-area [heights word]
  (let [ca (char-array word)
        hs (map heights ca)]
    (* (count word) (apply max hs))))

(defn -main [& args]
  (let [heights (make-heights (read-line))]
    (println (word-area heights (read-line)))))