Updated bug list & started working on more tests
This commit is contained in:
parent
f5b5f11903
commit
6947614fba
11 changed files with 80 additions and 59 deletions
|
|
@ -1,2 +1,2 @@
|
|||
|
||||
f = \x. x+1;
|
||||
f : _Int -> _Int ;
|
||||
f = \x. x+1 ;
|
||||
|
|
|
|||
|
|
@ -1,3 +1,5 @@
|
|||
add : _Int -> _Int -> _Int ;
|
||||
add x = \y. x+y;
|
||||
|
||||
main = (\z. z+z) ((add 4) 6);
|
||||
main : _Int ;
|
||||
main = (\z. z+z) ((add 4) 6) ;
|
||||
|
|
|
|||
|
|
@ -1,2 +1,2 @@
|
|||
|
||||
main = (\x. x+x+3) ((\x. x) 2)
|
||||
main : _Int ;
|
||||
main = (\x. x+x+3) ((\x. x) 2) ;
|
||||
|
|
|
|||
|
|
@ -1,2 +1,2 @@
|
|||
|
||||
f : _Int -> _Int ;
|
||||
f x = let g = (\y. y+1) in g (g x)
|
||||
|
|
|
|||
|
|
@ -1,9 +1,14 @@
|
|||
id x = x;
|
||||
-- double : _Int -> _Int ;
|
||||
-- double n = n + n;
|
||||
|
||||
add x y = x + y;
|
||||
apply : ('a -> 'b -> 'c) -> 'a -> 'b -> 'c ;
|
||||
apply f x = \y. f x y ;
|
||||
|
||||
double n = n + n;
|
||||
id : 'a -> 'a ;
|
||||
id x = x ;
|
||||
|
||||
apply f x = \y. f x y;
|
||||
add : _Int -> _Int -> _Int ;
|
||||
add x y = x + y ;
|
||||
|
||||
main = apply (id add) ((\x. x + 1) 1) (double 3);
|
||||
main : _Int -> _Int -> _Int ;
|
||||
main = (id add) 1 2 ;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue