History

Thomas Smits f79e3662c0 Update of exercises		2024-03-11 10:39:04 +01:00
..
readme.md	Update of exercises	2024-03-11 10:39:04 +01:00

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)