heptagon/test/good/array2.ept
Cédric Pasteur 87cb705fcb Added some tests file
- Arrays, parametrized nodes
- hierarchie.ept is a node with nested automaton
(generated a lot of variables, good test for 
performance)
2010-07-09 10:35:54 +02:00

19 lines
319 B
Text

const n:int = 43
node f(a:int^n; i:int) returns (o:int^n; m:int)
let
m = a.[i] default 0;
o = i^n;
tel
node sumdup (a, acc_in:int) returns (o:int; acc_out:int)
let
acc_out = acc_in + a;
o = acc_out;
tel
node p(a:int^n) returns (o:int^n)
var acc:int;
let
(o, acc) = mapfold sumdup <<n>>(a, 0);
tel