heptagon/test/good/parametrize.ept
Léonard Gérard 36061f4518 fixed tests to the new iterator syntax.
Changed (( and )) to (< and >) since it's very common to write )) !
2011-03-21 22:24:37 +01:00

30 lines
421 B
Text

const n:int = 42
const l:int = 2
const z:int = n + 3
node f(a:int^z) returns (m:int)
let
m = a[1]
tel
node g<<m:int>>(a:int^m) returns (o:int)
let
o = a[12 - l] + m;
tel
node h(a:int^n; b:int^z) returns (o,m:int)
let
o = g<<n>>(a);
m = g<<z>>(b);
tel
node l<<m:int>>(a:int^m) returns (o:int^m)
let
o = [ a with [11] = 0 ];
tel
node p(a:int^n^n) returns (o:int^n^n)
let
o = map<<n>> (l<<n>>)(a);
tel