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(modulator: int, x : ..) int {
  total := 0;
  for e, i := x {
  	  total += modulator * i * (e as int);
  }
  total
};

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

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

main();