12 lines
214 B
Text
12 lines
214 B
Text
node f(x:int;c:bool) returns (y:int)
|
|
let
|
|
y = (x :: .) when c;
|
|
tel
|
|
|
|
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
|