2011-08-04 23:47:28 +02:00
|
|
|
node f(x:int;c:bool) returns (y:int)
|
|
|
|
|
let
|
|
|
|
|
y = (x :: .) when c;
|
|
|
|
|
tel
|
|
|
|
|
|
2012-07-16 18:49:08 +02:00
|
|
|
node main() returns (y:int)
|
|
|
|
|
var x:int;c:bool;
|
|
|
|
|
let
|
|
|
|
|
x = 0 fby x + 1;
|
|
|
|
|
c = true fby true fby false fby true fby c;
|
|
|
|
|
y = merge c (f(x,c)) 0;
|
|
|
|
|
tel
|
