amalloy-4clojure-solution121.clj

;; amalloy's solution to Universal Computation Engine
;; https://4clojure.com/problem/121

(fn [formula]
  (fn [values]
    ((fn compute [x]
       (if (seq? x)
         (let [[op & args] x]
           (apply ({'+ + '/ / '- - '* *} op)
                  (map compute args)))
         (get values x x)))
     formula)))