heptagon/test/good/t19.ept
2012-07-18 16:54:44 +02:00

29 lines
431 B
Text

fun substr<<n:int>> (x: int^n^n) returns (d: int)
let
d = x[0][0] - n;
tel
fun mean<<n: int>> (i: int) returns (m: int)
let
m = substr<<n>> (i^n^n)
tel
fun mean2<<n: int>> (j: int) returns (m: int)
let
m = substr<<n>> (j^n^n)
tel
node main() returns (m1,m2:int)
let
m1 = mean<<5>>(3);
m2 = mean2<<5>>(3)
tel
(* CHECK compare *)
node compare() returns (ok:bool)
var x,y:int;
let
(x,y) = main();
ok = (x = y);
tel