Fixes to word generation

2021-02-20 09:08:56 -08:00
parent e2d3acd5c6
commit 1800e00c25
2 changed files with 10 additions and 1 deletions
--- a/src/cljc/auto_ap/numeric.cljc
+++ b/src/cljc/auto_ap/numeric.cljc
@@ -88,7 +88,7 @@


 (defn num->words [num]
-  (let [total-cents (int (* 100 num)) 
+  (let [total-cents (int (Math/round (* 100 num))) 
        dollar-num (int (quot total-cents 100))
        cent-num (int (rem total-cents 100))
        dollars (str (words dollar-num) " dollars")