p022.clj

;; What is the total of all the name scores in the file (names.txt)?

(ns p022
  (:require [clojure.string :as str]))

(def names
  (-> (slurp "data/names.txt")
      (str/replace "\"" "")
      (str/split #",")
      sort))

(defn score [name]
  (apply + (map (fn [a] (- (int a) (dec (int \A)))) name)))

(defn solve []
  (->> (map-indexed vector names)
       (map (fn [[i e]] (* (inc i) (score e))))
       (apply +)))