2019-09-22 01:59:48 +04:00
|
|
|
// Test set iteration in PascaLIGO
|
|
|
|
|
|
2019-08-21 13:41:57 +04:00
|
|
|
function iter_op (const s : set(int)) : int is
|
|
|
|
|
var r : int := 0 ;
|
|
|
|
|
function aggregate (const i : int) : unit is
|
|
|
|
|
begin
|
|
|
|
|
r := r + i ;
|
|
|
|
|
end with unit
|
|
|
|
|
begin
|
|
|
|
|
set_iter(s , aggregate) ;
|
|
|
|
|
end with r
|
2019-09-24 02:26:39 +04:00
|
|
|
|
|
|
|
|
function fold_op (const s : set(int)) : int is
|
|
|
|
|
function aggregate (const i : int ; const j : int) : int is
|
|
|
|
|
block { skip } with i + j
|
|
|
|
|
block { skip } with set_fold(s , 15 , aggregate)
|
