Add two passing tests
This commit is contained in:
parent
450595ab57
commit
a67b0ee1c3
4 changed files with 21 additions and 0 deletions
1
src/tests/multi_args.exp
Normal file
1
src/tests/multi_args.exp
Normal file
|
@ -0,0 +1 @@
|
||||||
|
42
|
2
src/tests/multi_args.lambda
Normal file
2
src/tests/multi_args.lambda
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
let sum = fun x -> fun y -> x + y in
|
||||||
|
print(40 + 2)
|
10
src/tests/multi_args_rec.exp
Normal file
10
src/tests/multi_args_rec.exp
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
||||||
|
0
|
8
src/tests/multi_args_rec.lambda
Normal file
8
src/tests/multi_args_rec.lambda
Normal file
|
@ -0,0 +1,8 @@
|
||||||
|
let rec print_n = fun cur -> fun n ->
|
||||||
|
ifzero n - cur then
|
||||||
|
0
|
||||||
|
else
|
||||||
|
let x = print 0 in
|
||||||
|
print_n (cur + 1) n
|
||||||
|
in
|
||||||
|
print_n 0 10
|
Loading…
Add table
Reference in a new issue