Lösung: Map und Reduce: Gewinnermittlung für die Abzock GmbH
#!/usr/bin/env -S clojure -M
(def verkaeufe-stueckzahlen {
:PS5 [ 10, 5, 8, 13, 22, 42, 110 ],
:GTX1090 [ 5, 7, 11, 54, 90 ],
:OEL [ 10, 44, 100, 343, 66, 52, 23 ]})
(def verkaufspreise {
:PS5 1239,
:GTX1090 1699,
:OEL 9 })
(println "Gewinnermittlung Abzock GmbH")
(defn summiere [stueckzahlen preise]
(doseq [[key values] stueckzahlen]
(println key
(reduce + (map #(* % (key preise)) values))
"EUR")))
(summiere verkaeufe-stueckzahlen verkaufspreise)
04dda27e57