25 lines
413 B
Plaintext
25 lines
413 B
Plaintext
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
|