infix-calculator.clj

;; An infix calculator
(defn calc [& x] 
  (loop [a (first x) b (second x) c (nth x 2) remainding (drop 3 x)] ;; This loop is unnecessary complex
            (let [result (b a c)]
              (if (empty? remainding)
                result
                (recur 
                 result
                 (first remainding)
                 (second remainding)
                 (drop 2 remainding)
                 )))))