rendezvous with cassidoo challenge: 23-11-06

score_word_game.clj

(ns score-word-game
  (:require [clojure.test :refer [deftest is]]))

(defn score-word-game [word-list letter-scores]
  (let [word-score (fn [word]
                    (let [letter-score (reduce + (map letter-scores word))]
                      (* (count word) letter-score)))]
    (apply max-key word-score word-list)))

(deftest score-word-game-test
  (let [word-list     ["apple" "banana" "cherry" "date" "fig"]
        letter-scores (zipmap "abcdefghijklmnopqrstuvwxyz" (range 1 27))]

    (is (= "cherry" (score-word-game word-list letter-scores)))))