From 1800e00c25ddb61799d6496007582de00513c662 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sat, 20 Feb 2021 09:08:56 -0800 Subject: [PATCH] Fixes to word generation --- src/clj/user.clj | 9 +++++++++ src/cljc/auto_ap/numeric.cljc | 2 +- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/src/clj/user.clj b/src/clj/user.clj index f0cb058d..9cc8cb94 100644 --- a/src/clj/user.clj +++ b/src/clj/user.clj @@ -427,3 +427,12 @@ (filter (fn [[e accounts]] (not= accounts (get jel-accounts e))) transaction-accounts))) + + + +(defn spit-csv [columns data ] + (csv/write-csv *out* + (into [(map name columns)] + (for [r data] + ((apply juxt columns) r ))))) + diff --git a/src/cljc/auto_ap/numeric.cljc b/src/cljc/auto_ap/numeric.cljc index e122f3ba..c13f7b28 100644 --- 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")