Compare commits

...

2 commits

5 changed files with 30 additions and 9 deletions

1
src/tests/multi_args.exp Normal file
View file

@ -0,0 +1 @@
42

View file

@ -0,0 +1,2 @@
let sum = fun x -> fun y -> x + y in
print(40 + 2)

View file

@ -0,0 +1,10 @@
0
0
0
0
0
0
0
0
0
0

View 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

View file

@ -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)