grouped decimal number formatter

grouped-dec.clj

(defn grouped-dec [decimal-number]
  ;; NOTE: handle sign separately
  (when decimal-number
    (let [s (str decimal-number)
          [deci fract] (str/split s #"\.")
          grouped
          (->> deci
               (reverse)
               (partition 3 3 nil)
               (map #(apply str %))
               (interpose "\u202f")
               (apply str)
               (reverse)
               (apply str))]
      (apply str grouped "." (take 2 (str fract "00"))))))


(comment

  (grouped-dec (bigdec 12345678.02))
  ;; => "12 345 678.02"

  (grouped-dec (bigdec 0.0))
  ;; => "0.00"

  (grouped-dec 0)
  ;; => "0.00"

  (grouped-dec 1000)
  ;; => "1 000.00"
  ,)