Add heading for exercise 3
This commit is contained in:
parent
7b0feead6e
commit
c622d4d12e
|
@ -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
|
||||||
-- [] -> []
|
-- [] -> []
|
||||||
|
|
Loading…
Reference in a new issue