12 lines
178 B
Plaintext
12 lines
178 B
Plaintext
|
|
node sum_acc (a, acc_in:int) returns (acc_out:int)
|
|
let
|
|
acc_out = acc_in + a;
|
|
tel
|
|
|
|
node h<<n, n2 :int>>(a:int^n^n2) returns (m:int)
|
|
let
|
|
m = fold<<n,n2>> sum_acc (a, 0);
|
|
tel
|
|
|