infix math notation example

gistfile1.cl

(def precedence {* 1, / 1, + 2, - 2})

(defn formula [& exprs]     
  (let [[x aop y bop z] (take 5 exprs)]      
    (if aop
      (if bop
        (if (< (get precedence aop) (get precedence bop))
          (recur (into [(aop (formula x) (formula y))] (drop 3 exprs)))
          (recur (into [x aop (bop (formula y) (formula z))] (drop 5 exprs))))
        (aop (formula x) (formula y)))
      (if (vector? x) 
        (apply formula x) x)
      )))

(formula 5 + 3 * [[2 + 5] - [[2 + 8 * 10  / 11 + 12 - 3 - 9] / 6]])
;output: 235/11