2011-06-27 16:08:56 +02:00
|
|
|
|
|
|
|
node sum_acc (a, acc_in:int) returns (acc_out:int)
|
|
|
|
let
|
|
|
|
acc_out = acc_in + a;
|
|
|
|
tel
|
|
|
|
|
2011-07-08 11:32:17 +02:00
|
|
|
node h<<n, n2 :int>>(a:int^n^n2) returns (m:int)
|
2011-06-27 16:08:56 +02:00
|
|
|
let
|
|
|
|
m = fold<<n,n2>> sum_acc (a, 0);
|
|
|
|
tel
|
|
|
|
|