From c622d4d12e3e720f6c70b3d63b270946fa834cf7 Mon Sep 17 00:00:00 2001 From: Manuel Thalmann Date: Sun, 16 Jun 2024 15:01:15 +0200 Subject: [PATCH] Add heading for exercise 3 --- Exercises/exercise-4/Solution.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Exercises/exercise-4/Solution.hs b/Exercises/exercise-4/Solution.hs index 46b7219..89491d6 100644 --- a/Exercises/exercise-4/Solution.hs +++ b/Exercises/exercise-4/Solution.hs @@ -54,6 +54,9 @@ length' ls = aux x : xs -> aux $ map (\y -> (+1) x ) xs -- length' und aux sind nicht endrekursiv +-------------------- +-- Exercise 3 +-------------------- -- sieve :: ( a -> a -> Bool ) -> [ a ] -> [ a ] -- sieve pred xs = case xs of -- [] -> []