History

Thomas Smits 04dda27e57 Update of exercises		2024-03-11 10:41:23 +01:00
..
readme.md	Update of exercises	2024-03-11 10:41:23 +01:00

readme.md

Lösung: Maps: Lagerverwaltung

#!/usr/bin/env -S clojure -M

(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)