From 9ea4cd8cc2d862246c249f0acaa5a217ea0b5e34 Mon Sep 17 00:00:00 2001
From: David <david2408@web.de>
Date: Sun, 2 Feb 2025 23:42:08 +0100
Subject: [PATCH] block 2: 1&2

---
 exercises/block2/1-map/README.md | 26 ++++++++++++++++++++++++++
 exercises/block2/1-map/map.hs    | 23 +++++++++++++++++++++++
 exercises/block2/2-zip/README.md | 28 ++++++++++++++++++++++++++++
 exercises/block2/2-zip/zip.hs    | 26 ++++++++++++++++++++++++++
 4 files changed, 103 insertions(+)
 create mode 100644 exercises/block2/1-map/README.md
 create mode 100644 exercises/block2/1-map/map.hs
 create mode 100644 exercises/block2/2-zip/README.md
 create mode 100644 exercises/block2/2-zip/zip.hs

diff --git a/exercises/block2/1-map/README.md b/exercises/block2/1-map/README.md
new file mode 100644
index 0000000..c37b1cd
--- /dev/null
+++ b/exercises/block2/1-map/README.md
@@ -0,0 +1,26 @@
+# Aufgabe 1 - Rekursive Implementierung von `map`
+
+## Ziel der Aufgabe
+Implementiere die Funktion `map` rekursiv. Die Funktion nimmt eine Funktion `f` und eine Liste `xs` und gibt eine neue Liste zurück, in der `f` auf jedes Element von `xs` angewendet wurde.
+
+## Signatur
+```haskell
+map :: (a -> b) -> [a] -> [b]
+```
+
+## Beispiel Testfäle
+```haskell
+map (*2) [1, 2, 3] -- [2, 4, 6]
+map show [1, 2, 3] -- ["1", "2", "3"]
+map (const "a") [1, 2, 3] -- ["a", "a", "a"]
+map (+1) [] -- []
+```
+
+## Anforderungen
+- Nutze Rekursion zur Implementierung
+- Nutze kein map aus der Standardbibliothek
+- Nutze Pattern Matching, um Basis- und Rekursionsfall zu unterscheiden
+
+## Hinweise
+- Die leere Liste `[]` soll als Basisfall betrachtet werden
+- Die Funktion `f` soll auf das erste Element der Liste angewendet und dann mit dem Rest der Liste rekursiv weitergeführt werden
\ No newline at end of file
diff --git a/exercises/block2/1-map/map.hs b/exercises/block2/1-map/map.hs
new file mode 100644
index 0000000..c7697a8
--- /dev/null
+++ b/exercises/block2/1-map/map.hs
@@ -0,0 +1,23 @@
+-- Aufgabe: Implementiere die rekursive Funktion `map`
+
+-- Funktionssignatur
+map :: (a -> b) -> [a] -> [b]
+
+-- TODO: Implementiere die Funktion mit Rekursion
+map _ [] = undefined
+map f (x:xs) = undefined
+
+-- Testfälle
+test1 = map (*2) [1,2,3] == [2,4,6]
+test2 = map show [1,2,3] == ["1", "2", "3"]
+test3 = map (+1) [] == []
+test4 = map (const "a") [1,2,3] == ["a", "a", "a"]
+
+-- Hauptfunktion zum Testen
+main :: IO ()
+main = do
+    putStrLn "Teste map-Funktion..."
+    print test1
+    print test2
+    print test3
+    print test4
diff --git a/exercises/block2/2-zip/README.md b/exercises/block2/2-zip/README.md
new file mode 100644
index 0000000..7fd1e48
--- /dev/null
+++ b/exercises/block2/2-zip/README.md
@@ -0,0 +1,28 @@
+# Aufgabe 1 - Rekursive Implementierung von `zip`
+
+## Ziel der Aufgabe
+Implementiere die Funktion `zip` rekursiv. Die Funktion nimmt zwei Listen und gibt eine Liste von Paaren zurück, wobei jeweils das erste Element der ersten Liste mit dem ersten Element der zweiten Liste kombiniert wird.
+
+## Signatur
+```haskell
+zip :: [a] -> [b] -> [(a, b)]
+```
+
+## Beispiel Testfäle
+```
+zip [1,2,3] ['a', 'b', 'c'] -- [(1, 'a'), (2, 'b'), (3, 'c')]
+zip [1,2] ["eins", "zwei", "drei"] -- [(1, "eins"), (2, "zwei")]
+zip [True, False] [1,2,3] -- [(True,1), (False,2)]
+zip [] [1,2,3] -- []
+zip [1,2,3] [] -- []
+
+```
+
+## Anforderungen
+- Nutze Rekursion zur Implementierung
+- Nutze kein zip aus der Standardbibliothek
+- Die Funktion soll enden, sobald eine der beiden Listen leer ist
+
+## Hinweise
+- Der Basisfall tritt ein, wenn eine der Listen leer ist
+- Kombiniere das erste Element beider Listen zu einem Tupel und rufe zip rekursiv für die restlichen Elemente auf
\ No newline at end of file
diff --git a/exercises/block2/2-zip/zip.hs b/exercises/block2/2-zip/zip.hs
new file mode 100644
index 0000000..d07a464
--- /dev/null
+++ b/exercises/block2/2-zip/zip.hs
@@ -0,0 +1,26 @@
+-- Aufgabe: Implementiere die rekursive Funktion `zip`
+
+-- Funktionssignatur
+zip :: [a] -> [b] -> [(a, b)]
+
+-- TODO: Implementiere die Funktion mit Rekursion
+zip [] _ = undefined
+zip _ [] = undefined
+zip (x:xs) (y:ys) = undefined
+
+-- Testfälle
+test1 = zip [1,2,3] ['a', 'b', 'c'] == [(1, 'a'), (2, 'b'), (3, 'c')]
+test2 = zip [1,2] ["eins", "zwei", "drei"] == [(1, "eins"), (2, "zwei")]
+test3 = zip [True, False] [1,2,3] == [(True,1), (False,2)]
+test4 = zip [] [1,2,3] == []
+test5 = zip [1,2,3] [] == []
+
+-- Hauptfunktion zum Testen
+main :: IO ()
+main = do
+    putStrLn "Teste zip-Funktion..."
+    print test1
+    print test2
+    print test3
+    print test4
+    print test5