loopr single-accumulator reductions

multi-dimension.clj

user=> (-> '(dt/loopr [sum 0] [x xs, y ys] (recur (+ sum x y))) macroexpand pprint)
(let* [sum 0
       sum (clojure.core/reduce
             (clojure.core/fn reduce-x-2690 [sum x]
               (clojure.core/reduce (clojure.core/fn reduce-y-2692 [sum y]
                                      (. clojure.lang.Numbers (add (. clojure.lang.Numbers (add sum x)) y)))
                                    sum
                                    ys))
             sum
             xs)]
  sum)

single-dimensjon.clj

user=> (-> '(dt/loopr [sum 0] [x xs] (recur (+ sum x))) macroexpand pprint)
(let* [sum 0
       sum (clojure.core/reduce
             (clojure.core/fn reduce-x-2686 [sum x]
               (. clojure.lang.Numbers (add sum x)))
             sum
             xs)]
  sum)