heptagon/test/good/test.ept
2012-07-18 16:54:44 +02:00

28 lines
387 B
Text

node (+)(x,y:int) returns (z:int)
let
automaton
state Up
do z = x + y;
until z > 10 then Down
state Down
do z = x - y;
until z < -10 then Up
end
tel
node updown2() returns (y:int)
let
y = (0 fby y) + 1
tel
node main() returns (y:int)
let
y = updown2();
tel
(* CHECK lessthan12 *)
node lessthan12() returns (ok:bool)
let
ok = main() < 12
tel