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 [] (defn do-import []
(let [transactions (client/get-transactions) (let [transactions (client/get-transactions)
_ (println "Total transactions" (count transactions))
_ (println "Count of transactions" (->> transactions _ (println "Count of transactions" (->> transactions
(group-by transactions :accountId) (group-by :accountId)
(reduce-kv (fn [acc k v] (reduce-kv (fn [acc k v]
(assoc acc k (count v))) (assoc acc k (count v)))
{}))) {})))