heptagon/test/good/autohiera2.ept
Léonard Gérard 1d6feeef54 some more tests
2011-05-26 15:56:59 +02:00

24 lines
413 B
Text

node count() returns (o : int)
let
o = 0 fby (o + 1);
tel
node main(x : bool) returns (c : bool)
let
automaton
state One
do
automaton
state A
do c = x;
until count() = 2 then B
state B
do c = not(x);
until true then A
end
until true then Two
state Two
do c = x;
until true then One
end
tel