jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Added test for foldi

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-26 09:34:29 +02:00
parent a081f2dacf
commit 6c8a83f8c4
1 changed files with 11 additions and 0 deletions

11
test/good/foldi.ept Normal file
View file

@ -0,0 +1,11 @@
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