heptagon/test/good/test.ept

23 lines
300 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 updown'() returns (y:int)
let
y = (0 fby y) + 1
tel
node main() returns (y:int)
let
y = updown'();
tel