28 lines
387 B
Text
28 lines
387 B
Text
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)
|
|
let
|
|
y = (0 fby y) + 1
|
|
tel
|
|
|
|
node main() returns (y:int)
|
|
let
|
|
y = updown2();
|
|
tel
|
|
|
|
(* CHECK lessthan12 *)
|
|
node lessthan12() returns (ok:bool)
|
|
let
|
|
ok = main() < 12
|
|
tel
|