teste-clojre.clj

(def transacoes [
                 {:valor 10}
                 {:valor 50}
                 {:valor 100}])

(reduce + (map #(:valor %) transacoes))
(->> (map #(:valor %) transacoes)
     (reduce +))

(defn so-valor [transacao] (:valor transacao))

(-> (first transacoes)
    so-valor)

(defn primeira-transacao [transacoes] (first transacoes))

(def fn-comp (comp so-valor primeira-transacao))
(fn-comp transacoes)

(def cotacoes {
               :dolar 4.15
               :euro 4.69
               })

(defn transacao-em-outra-moeda
  [moeda transacao]
  (assoc transacao :valor (* (moeda cotacoes) (:valor transacao))))

(transacao-em-outra-moeda :dolar (first transacoes))

(def transacao-em-dolar (partial transacao-em-outra-moeda :dolar))
(transacao-em-dolar (first transacoes))