Added η-expander module and removed EAdd from grammar.

This commit is contained in:
sebastianselander 2023-05-12 16:25:03 +02:00
parent c3bcdfa81b
commit 8b92dd9194
8 changed files with 113 additions and 18 deletions

View file

@ -0,0 +1,19 @@
data List a where
Nil : List a
Cons : a -> List a -> List a
map : (a -> b) -> List a -> List b
map f xs = case xs of
Nil => Nil
Cons a as => Cons (f a) (map f as)
add : Int -> Int -> Int
add x y = x + y
sum : List Int -> Int
sum xs = case xs of
Nil => 0
Cons a as => a + (sum xs)
main : Int
main = sum (map (add 1) (Cons 1 Nil))