-
Notifications
You must be signed in to change notification settings - Fork 0
/
decimal.cljs
77 lines (63 loc) · 1.21 KB
/
decimal.cljs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
(ns dgknght.app-lib.decimal
(:refer-clojure :exclude [+ - * / zero? abs])
(:require ["decimal.js" :as Decimal]))
(defn ->decimal
[value]
(when value
(Decimal. value)))
(defn decimal?
[v]
(instance? Decimal v))
(extend-type Decimal
IEquiv
(-equiv [this other]
(when-let [parsed (try
(when other
(->decimal other))
(catch js/Error _ nil))]
(.equals this parsed))))
(defn abs
[value]
(when value
(.abs (->decimal value))))
(defn zero []
(->decimal 0))
(defn zero?
[value]
(when value
(.isZero (->decimal value))))
(defn +
[& vs]
(when (not-every? nil? vs)
(->> vs
(filter identity)
(map ->decimal)
(reduce #(.plus %1 %2) (zero)))))
(defn -
[v1 v2]
(when (and v1 v2)
(.minus (->decimal v1) v2)))
(defn *
[v1 v2]
(when (and v1 v2)
(.times (->decimal v1) v2)))
(defn /
[v1 v2]
(when (and v1 v2)
(.div (->decimal v1) v2)))
(defn sum
[coll]
(->> coll
(filter identity)
(reduce + 0M)))
(defn trunc
[d]
(.trunc d))
(defn round
[d]
(when d
(.round d)))
(defn set-scale
[d scale]
(when d
(.toDP d scale Decimal/ROUND_HALF_UP)))