Compare commits
2 commits
450595ab57
...
2319414786
Author | SHA1 | Date | |
---|---|---|---|
Théophile Bastian | 2319414786 | ||
Théophile Bastian | a67b0ee1c3 |
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
|
|
@ -14,12 +14,12 @@ let fibo = fun n ->
|
|||
fibo_inner 2 1 1
|
||||
in
|
||||
|
||||
let x = print fibo 0 in
|
||||
let x = print fibo 1 in
|
||||
let x = print fibo 2 in
|
||||
let x = print fibo 3 in
|
||||
let x = print fibo 4 in
|
||||
let x = print fibo 5 in
|
||||
let x = print fibo 6 in
|
||||
let x = print fibo 7 in
|
||||
print fibo 8
|
||||
let x = print (fibo 0) in
|
||||
let x = print (fibo 1) in
|
||||
let x = print (fibo 2) in
|
||||
let x = print (fibo 3) in
|
||||
let x = print (fibo 4) in
|
||||
let x = print (fibo 5) in
|
||||
let x = print (fibo 6) in
|
||||
let x = print (fibo 7) in
|
||||
print (fibo 8)
|
||||
|
|
Loading…
Reference in a new issue