heptagon/test/good/itfusion.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

21 lines
No EOL
340 B
Text

const n:int = 42
fun inc(a:int) returns (o:int)
let
o = a + 1;
tel
fun f1(a:int^n) returns (o:int^n)
let
o = map<<n>> inc (map<<n>> inc (a));
tel
fun f2(a,b:int^n) returns (o:int^n)
let
o = map<<n>> (+) (map<<n>> inc (b), map<<n>> inc (a));
tel
fun f3(a,b:int^n) returns (o:int^n)
let
o = map<<n>> (+) (b, map<<n>> inc (a));
tel