clojure-uebungen/Assignment_002/solution/readme.md

18 lines
339 B
Markdown

# Lösung: Erste Schritte
```$2#!/usr/bin/env -S clojure -M
(println "Produktname: ")
(def produkt (read-line))
(println "Einkauspreis:")
(def preis-einkauf (Integer/parseInt (read-line)))
(def preis-verkauf (max (* 2.5 preis-einkauf) 995))
(println "")
(print "Sonderangebot: ")
(println produkt "für nur" preis-verkauf "EUR")
```