notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Fixes to word generation

Browse Source
This commit is contained in:
Bryce Covert
2021-02-20 09:08:56 -08:00
parent e2d3acd5c6
commit 1800e00c25
2 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/user.clj
View File

@@ -427,3 +427,12 @@
(filter (filter
(fn [[e accounts]] (not= accounts (get jel-accounts e))) (fn [[e accounts]] (not= accounts (get jel-accounts e)))
transaction-accounts))) transaction-accounts)))
(defn spit-csv [columns data ]
(csv/write-csv *out*
(into [(map name columns)]
(for [r data]
((apply juxt columns) r )))))

2
src/cljc/auto_ap/numeric.cljc
View File

@@ -88,7 +88,7 @@
(defn num->words [num] (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)) dollar-num (int (quot total-cents 100))
cent-num (int (rem total-cents 100)) cent-num (int (rem total-cents 100))
dollars (str (words dollar-num) " dollars") dollars (str (words dollar-num) " dollars")