From 04dda27e5722cc219ae5f09fc277835214558c32 Mon Sep 17 00:00:00 2001 From: Thomas Smits Date: Mon, 11 Mar 2024 10:41:23 +0100 Subject: [PATCH] Update of exercises --- Assignment_002/solution/readme.md | 3 ++- Assignment_003/solution/readme.md | 3 ++- Assignment_004/solution/readme.md | 3 ++- Assignment_005/solution/readme.md | 3 ++- Assignment_006/solution/readme.md | 3 ++- Assignment_007/solution/readme.md | 3 ++- Assignment_008/solution/readme.md | 3 ++- Assignment_009/solution/readme.md | 3 ++- Assignment_010/solution/readme.md | 3 ++- Assignment_011/solution/readme.md | 3 ++- Assignment_012/solution/readme.md | 3 ++- Assignment_013/solution/readme.md | 3 ++- Assignment_014/solution/readme.md | 3 ++- Assignment_015/solution/readme.md | 3 ++- Assignment_016/solution/readme.md | 3 ++- Assignment_017/solution/readme.md | 3 ++- 16 files changed, 32 insertions(+), 16 deletions(-) diff --git a/Assignment_002/solution/readme.md b/Assignment_002/solution/readme.md index 5ea7dbd..99fe7a6 100644 --- a/Assignment_002/solution/readme.md +++ b/Assignment_002/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Erste Schritte -```$2#!/usr/bin/env -S clojure -M +```clojure +#!/usr/bin/env -S clojure -M (println "Produktname: ") (def produkt (read-line)) diff --git a/Assignment_003/solution/readme.md b/Assignment_003/solution/readme.md index 848888e..31b84cd 100644 --- a/Assignment_003/solution/readme.md +++ b/Assignment_003/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Maps: Lagerverwaltung -```$2#!/usr/bin/env -S clojure -M +```clojure +#!/usr/bin/env -S clojure -M (def lager { :PS5 10 diff --git a/Assignment_004/solution/readme.md b/Assignment_004/solution/readme.md index 68275aa..4b2d877 100644 --- a/Assignment_004/solution/readme.md +++ b/Assignment_004/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Kontrolltrukturen: Lagerverwaltung, Teil 2 -```$2#!/usr/bin/env -S clojure -M +```clojure +#!/usr/bin/env -S clojure -M (def lager { :PS5 10 diff --git a/Assignment_005/solution/readme.md b/Assignment_005/solution/readme.md index 8a9e379..2309483 100644 --- a/Assignment_005/solution/readme.md +++ b/Assignment_005/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Map und Reduce: Gewinnermittlung für die Abzock GmbH -```$2#!/usr/bin/env -S clojure -M +```clojure +#!/usr/bin/env -S clojure -M (def verkaeufe-stueckzahlen { :PS5 [ 10, 5, 8, 13, 22, 42, 110 ], diff --git a/Assignment_006/solution/readme.md b/Assignment_006/solution/readme.md index 2b35287..ae4d2dd 100644 --- a/Assignment_006/solution/readme.md +++ b/Assignment_006/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Multi-Arity-Funktion -```$2(defn my-average +```clojure +(defn my-average ([a b] (/ (+ a b) 2)) ([a b c d] (/ (+ a b c d) 4)) ([a b c d e f] (/ (+ a b c d e f) 6))) diff --git a/Assignment_007/solution/readme.md b/Assignment_007/solution/readme.md index 3440ed3..4b4347a 100644 --- a/Assignment_007/solution/readme.md +++ b/Assignment_007/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Funktion als Rückgabewert -```$2(defn plus-n-fn +```clojure +(defn plus-n-fn "Liefert eine Funktion zurück, die genau ein Argument nimmt und dieses Argument zu `n` addiert." diff --git a/Assignment_008/solution/readme.md b/Assignment_008/solution/readme.md index d9a32ac..3122dad 100644 --- a/Assignment_008/solution/readme.md +++ b/Assignment_008/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: apply und Funktionen als Übergabewerte -```$2(defn triple-apply +```clojure +(defn triple-apply "Wendet die Funktion `f` drei mal hintereinander auf die Argumente `args` an und gibt die Summe der Ergebnisse zurück." [f & args] diff --git a/Assignment_009/solution/readme.md b/Assignment_009/solution/readme.md index 0ec835d..be39cb3 100644 --- a/Assignment_009/solution/readme.md +++ b/Assignment_009/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Vor- und Nachbedingung -```$2(defn sqrt [n] +```clojure +(defn sqrt [n] { :pre [(>= n 0)] :post [(> % 0)]} (Math/sqrt n)) diff --git a/Assignment_010/solution/readme.md b/Assignment_010/solution/readme.md index c54cc92..49aa136 100644 --- a/Assignment_010/solution/readme.md +++ b/Assignment_010/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Tail-Recursion -```$2(defn prod-recur +```clojure +(defn prod-recur "Berechnet das Produkt einer Reihe von Zahlen `zahlen` unter Verwendung von loop und recur." [zahlen] diff --git a/Assignment_011/solution/readme.md b/Assignment_011/solution/readme.md index bdd791f..c6ff625 100644 --- a/Assignment_011/solution/readme.md +++ b/Assignment_011/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Was hoppelt den da? -```$2#!/usr/bin/env -S clojure -M +```clojure +#!/usr/bin/env -S clojure -M (def generationen 14) diff --git a/Assignment_012/solution/readme.md b/Assignment_012/solution/readme.md index 337c2b4..a8f9075 100644 --- a/Assignment_012/solution/readme.md +++ b/Assignment_012/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: cond -```$2(defn test-positive +```clojure +(defn test-positive "Vergleicht eine Zahl mit 0 gibt einen Hinweis-Text. Der Hinweistext erklärt, ob die Zahl `number` größer, kleiner oder gleich zur Zahl 0 ist." diff --git a/Assignment_013/solution/readme.md b/Assignment_013/solution/readme.md index 271bedd..fca0412 100644 --- a/Assignment_013/solution/readme.md +++ b/Assignment_013/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: Ausnahmebehandlung -```$2(defn number-formatter +```clojure +(defn number-formatter "Konvertiert den String `string` in einen Integer-Wert. Wenn die Konvertierung fehlschlägt, wird -1 zurück gegeben." diff --git a/Assignment_014/solution/readme.md b/Assignment_014/solution/readme.md index 48ee797..594beed 100644 --- a/Assignment_014/solution/readme.md +++ b/Assignment_014/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: reduce -```$2(defn prod-reduce +```clojure +(defn prod-reduce "Berechnet das Produkt einer Reihe von Zahlen `zahlen` unter Verwendung von reduce." [zahlen] diff --git a/Assignment_015/solution/readme.md b/Assignment_015/solution/readme.md index cd934f9..c97dc89 100644 --- a/Assignment_015/solution/readme.md +++ b/Assignment_015/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: mapping und cycle -```$2(defn map-cycle +```clojure +(defn map-cycle "Erzeugt eine unendliche Sequenz der Zahlen `zahlen` und berechnet für jede Zahl deren Doppeltes und zieht dann 1 ab. Vom Ergebnis werden `n` Elemente zurück diff --git a/Assignment_016/solution/readme.md b/Assignment_016/solution/readme.md index d3ed1d5..f874b94 100644 --- a/Assignment_016/solution/readme.md +++ b/Assignment_016/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: take-while -```$2(defn below-zero +```clojure +(defn below-zero "Läuft über `data` und gibt die Elemente bis zum ersten Auftreten eines Wertes >= 0 zurück." [data] diff --git a/Assignment_017/solution/readme.md b/Assignment_017/solution/readme.md index 56c624b..1103971 100644 --- a/Assignment_017/solution/readme.md +++ b/Assignment_017/solution/readme.md @@ -1,7 +1,8 @@ # Lösung: filter -```$2(defn filter-positive +```clojure +(defn filter-positive "Läuft über `data` und gibt die Elemente, deren Wert >= 0 ist zurück." [data] (filter #(>= % 0) data))