Add heading for exercise 3

This commit is contained in:
Manuel Thalmann 2024-06-16 15:01:15 +02:00
parent 7b0feead6e
commit c622d4d12e

View file

@ -54,6 +54,9 @@ length' ls = aux
x : xs -> aux $ map (\y -> (+1) x ) xs x : xs -> aux $ map (\y -> (+1) x ) xs
-- length' und aux sind nicht endrekursiv -- length' und aux sind nicht endrekursiv
--------------------
-- Exercise 3
--------------------
-- sieve :: ( a -> a -> Bool ) -> [ a ] -> [ a ] -- sieve :: ( a -> a -> Bool ) -> [ a ] -> [ a ]
-- sieve pred xs = case xs of -- sieve pred xs = case xs of
-- [] -> [] -- [] -> []