mirror of
https://github.com/chrisdone/duet.git
synced 2024-09-17 15:07:58 +03:00
14 lines
295 B
Haskell
14 lines
295 B
Haskell
data List a = Nil | Cons a (List a)
|
|
foldr = \f z l ->
|
|
case l of
|
|
Nil -> z
|
|
Cons x xs -> f x (foldr f z xs)
|
|
foldl = \f z l ->
|
|
case l of
|
|
Nil -> z
|
|
Cons x xs -> foldl f (f z x) xs
|
|
list = (Cons True (Cons False Nil))
|
|
|
|
main_foldr = foldr _f _nil list
|
|
main_foldl = foldl _f _nil list
|