Some rewriting experiments

rewriter.clj

(defn rewrite-step
  [n cutoff replacements]
  (let [replaced-string
         (reduce
            (fn [result digit] (str result (str (nth replacements (- (int digit) 48)))))
              "" (str n))]
    (read-string (subs replaced-string 0 (min cutoff (count replaced-string))))))

(def temp-table
  (take 10 (repeatedly #(rand-int 1000))))

(fact "this works"
  (rewrite-step 1 10 temp-table) => integer?
  (take 30 (iterate #(rewrite-step % 10 temp-table) 1)) => 88)