11 lines
158 B
Plaintext
11 lines
158 B
Plaintext
|
|
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
|