captcha.clj

(ns captcha)

(defrecord Captcha [left op right])

(defn render-in-text [value]
  (nth ["zero" "one" "two" "three" "four" "five" "six" "seven" "eight" "nine"] value))

(defn render-captcha [captcha pattern]
  (let [l (.left captcha)
        r (.right captcha)]
       (list
         (if (= pattern 1) (render-in-text l) (str l))
         (name (.op captcha))
         (if (= pattern 2) (render-in-text r) (str r))
         )))


(def t1 (Captcha. 1 :+ 4))
(clojure.string/join " " (render-captcha t1 1)) ;; => "one + 4"