10 lines
423 B
Clojure
10 lines
423 B
Clojure
(require '[io.randomseed.bankster.money :as m])
|
|
|
|
(let [burgers (m/mul #money[USD 5.50] 4000000000000000)
|
|
milkshakes (m/mul #money[USD 2.86] 2)
|
|
pre-tax (m/add burgers milkshakes)
|
|
tax (m/with-rounding UP (m/mul pre-tax 0.0765))]
|
|
(println "Total before tax: " (m/format pre-tax))
|
|
(println " Tax: " (m/format tax))
|
|
(println " Total with tax: " (m/format (m/add pre-tax tax))))
|