11 lines
209 B
Text
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<<n>> f (a, true);
|
|
tel
|