clojure-uebungen/Assignment_003/solution/readme.md

Lösung: Maps: Lagerverwaltung

(def lager {
    :PS5      10
    :GTX1090  20
    :OEL     300
})

(println "Lagerverwaltung Abzock GmbH")
(println "Welcher Artikel wurde geliefert: ")
(def artikel (keyword (read-line)))
(println "Wieviel wurde ausgeliefert?")
(def menge (Integer/parseInt (read-line)))

(def bestand-alt (get lager artikel))
(def bestand-neu (- bestand-alt menge))

(def lager (dissoc lager artikel))
(def lager (assoc  lager artikel bestand-neu))

(println "")
(println "Neuer Lagerbestand")
(println lager)