23 lines
636 B
Plaintext
23 lines
636 B
Plaintext
node auto (i: int) returns (o : int);
|
|
var x, y:int;
|
|
let
|
|
automaton
|
|
| Incr -> do (o,x) = (0 fby o + 1, 2); until o < 5 then Decr
|
|
| Decr -> do (o,x) = diagonal_int(0 fby o); until o > 3 then Incr
|
|
tel
|
|
|
|
node auto (i: int) returns (o: int);
|
|
var x, y: int;
|
|
let
|
|
_s1 = 1 -> (if _s = 1 and o < 5 then 2 else if _s = 2 and o > then 1 else 1);
|
|
o, x = if _s = 1 then (0 fby o + 1, 2) else if _s = 2 then diagonal_int(0 fby 0) else (0, 0);
|
|
tel
|
|
|
|
node auto (i: int) returns (o : int);
|
|
var x, y:int;
|
|
let
|
|
automaton
|
|
| Incr -> do (o,x) = (0 fby o + 1, 2); until o < 5 then Decr
|
|
| Decr -> do (x,o) = diagonal_int(0 fby o); until o > 3 then Incr
|
|
tel
|