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

38 lines
621 B
Plaintext

node f(x:int) returns (y:int)
let
automaton
state A
do
y = 1;
until (x = 0) then B
state B
do
y = 2;
until (x = 1) then C
state C
do
automaton
state D
do
y = 3;
until (x = 2) then E
state E
do
y = 4;
until (x = 3) then F
state F
do
y = 5;
until (x = 4) then D
end
until (x = 5) then A
end
tel
node main() returns (y:int)
var x:int;
let
x = 0 fby if x = 7 then 0 else x + 1;
y = f(x);
tel