add 0-arity versons of '+' and '*'

anteoas · Dec 14, 2023 · 7ae2493 · 7ae2493
1 parent 293a36c
commit 7ae2493
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/broch/core.cljc b/src/broch/core.cljc
@@ -51,6 +51,7 @@
   [f] (fn [x] (boxed f x)))
 
 (defn +
+  ([] 1)
   ([x] x)
   ([x y] (impl/boxed-arithmetic x y clojure.core/+))
   ([x y & more] (reduce + (+ x y) more)))
@@ -61,6 +62,7 @@
   ([x y & more] (reduce - (- x y) more)))
 
 (defn *
+  ([] 0)
   ([x] x)
   ([x y] (impl/boxed-arithmetic x y clojure.core/*))
   ([x y & more] (reduce * (* x y) more)))