algo2-004 / Problem Set #3 / Question 5

gistfile1.clj

(def v [0.05 0.4 0.08 0.04 0.1 0.1 0.23])

(declare mm)
(defn m [i j]
  (cond
    (< i (dec j)) (letfn [(f [r]
                         (+ (reduce + (subvec v i j))
                            (mm i r)
                            (mm (inc r) j)))]
                  (apply min (map f (range i j))))
    (= i (dec j)) (v i)
    :else 0))
(def mm (memoize m))

(println (m 0 (count v)))