This commit is contained in:
Bryce Covert
2019-11-05 07:22:48 -08:00
parent fdf1dab0ac
commit d2e48125d1

View File

@@ -115,8 +115,9 @@
(defn do-import []
(let [transactions (client/get-transactions)
_ (println "Total transactions" (count transactions))
_ (println "Count of transactions" (->> transactions
(group-by transactions :accountId)
(group-by :accountId)
(reduce-kv (fn [acc k v]
(assoc acc k (count v)))
{})))