heptagon/test/good/test.ept

29 lines
387 B
Text
Raw Normal View History

2010-06-21 12:11:06 +02:00
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)
2010-06-21 12:11:06 +02:00
let
y = (0 fby y) + 1
tel
node main() returns (y:int)
let
y = updown2();
2010-06-21 12:11:06 +02:00
tel
2012-07-18 16:54:44 +02:00
(* CHECK lessthan12 *)
node lessthan12() returns (ok:bool)
let
ok = main() < 12
tel