heptagon/test/good/t19.ept
2011-11-25 18:55:12 +01:00

10 lines
158 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