I have a safe-divide function returning <code class="

Hmm, I think you can get a version of your safe-divide</code

Expose functions for custom arithmetic fn about broch HOT 3 CLOSED

anteoas commented on August 28, 2024

Expose functions for custom arithmetic fn

from broch.

Comments (3)

Frozenlock commented on August 28, 2024 1

With a slight modification to div-derive to handle cases where a and/or b are numbers, it does!

(defn div-derive [a b]
  (b// (if (number? a)
         1
         (b/with-num a 1))
       (if (number? b)
         1
         (b/with-num b 1))))

Thank you very much!

from broch.

2food commented on August 28, 2024

Hmm, I think you can get a version of your safe-divide for broch quantities using b/with-num to get the right unit for the given division (with 1/1 so it's a safe division) and then set the number to either ##Inf or ##-Inf.

(defn div-derive [a b]
  (b// (b/with-num a 1) (b/with-num b 1)))

(defn safe-divide-b [a b]
  (if (zero? (b/num b))
    (let [inf (if (neg? (b/num a)) ##-Inf ##Inf)]
      (b/with-num (div-derive a b) inf))
    (b// a b)))

(comment
  (safe-divide-b (b/meters 1) (b/seconds 0))                ; => #broch/quantity[##Inf "m/s"]
  (safe-divide-b (b/meters -1) (b/seconds 0))               ; => #broch/quantity[##-Inf "m/s"]
  )