30 lines
451 B
Plaintext
30 lines
451 B
Plaintext
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
|
|
|
|
node main() returns (o:int^n)
|
|
var t1,t2:int^n;
|
|
let
|
|
t1 = f1 (1^n);
|
|
t2 = f2(t1, 2^n);
|
|
o = f3(t1,t2);
|
|
tel
|