heptagon/test/good/foldi.ept
2010-07-26 09:34:29 +02:00

11 lines
209 B
Text

const n:int=42
fun f(a:bool; i:int; acc_in : bool) returns (acc_out : bool)
let
acc_out = if i = 0 then false else (a & acc_in);
tel
fun g(a: bool^n) returns (o:bool)
let
o = foldi f <<n>>(a, true);
tel