test.toc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#include "std/io.toc";

g ::= fn(x : ..) int {
  total := 0;
  for e, i := x {
  	  total += i * (e as int);
  }
  total
};

f ::= fn(x : ..) int {
  g(x)
};

main ::= fn() {
	 puti(g(5));
	 
	 puti(f(5,6));
	 
	 puti(f(1,2,3));
	 
	 puti(f(1,1,1,1));
	 
};

main();