clojure-uebungen/Assignment_005/solution/readme.md

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)