wordy.clj

; (deftest large-addition
;   (is (= (wordy/evaluate "What is 123 plus 45678?") 45801)))

; (deftest addition-and-multiplication
;   (is (= (wordy/evaluate "What is -3 plus 7 multiplied by -2?") -8)))

(ns wordy (:use clojure.string))

(defn remove-question-mark [query] 
  (clojure.string/join "" (drop-last query)))

(defn remove-extra-chars [query]
  (clojure.string/replace query #"by|\?" ""))

(defn split-to-pairs [query]
  (partition-all 2 (nthrest (filter #(not (empty? %)) (clojure.string/split query #" ")) 2)))

(def op-map {
  "plus" +
  "minus" -
  "multiplied" *
  "divided" /
})

(defn evaluate [query]
  (reduce (fn [acc [n op]] 
    (if (boolean op) 
        (partial (op-map op) (acc (Integer/parseInt n)))
        (acc (Integer/parseInt n)))) (partial + 0) (-> query remove-extra-chars split-to-pairs)))