Clojure Dynamic Programming DSL

edit_dist.clj

(defn fib [n]
  (dynamic [n]
           0 0
           1 1
           n (let-recur [a (- n 1)
                         b (- n 2)]
                        (+ a b))))

(defn edit-distance [s1 s2]
  (dynamic [(.length s1) (.length s2)]

           [0 j] j
           [i 0] i
           [i j] (let-recur [a [i (dec j)]
                             b [(dec i) j]
                             c [(dec i) (dec j)]]
                            
                            (+ c (if (= (.charAt s1 i) (.charAt s2 j)) 0 1)))))