core.clj

(defn walton [#^String s]
  (let [count-result (rand-int (count (walton-doc s)))
        expr (nth (walton-doc s) count-result)
        code-text (first expr)
        result-text (second expr)
        expr-length (map count (map seq expr))
        code-length (first expr-length)
        result-length (second expr-length)
        truncated-result []]
    (if (>= code-length 457)
      (conj truncated-result (apply str (take 457 expr) "..."))
      (conj truncated-result code-text))
    (if (>= result-length 457)
      (conj truncated-result (apply str (take 457) "..."))
      (conj truncated-result result-text))
    truncated-result))