VAT

vat.clj

(def declarable-expenses {1 [81.61] 12 [24.20 29.58 127 62.65]})

(defn return-vat
  [m]
  (* 0.7
     (* 0.21
        (reduce + (map #(* (key %) (reduce + (val %)))
                       m)))))

(return-vat declarable-expenses)