21 lines
309 B
Plaintext
21 lines
309 B
Plaintext
|
node twomodes (v:int) = (o:int)
|
||
|
|
|
||
|
|
contract
|
||
|
|
assume (v <= 1) & (v >= 0)
|
||
|
|
enforce (o <= 10) & (o >= 0)
|
||
|
|
with (c:bool)
|
||
|
|
|
||
|
|
var last y : int = 0;
|
||
|
|
let
|
||
|
|
o = y;
|
||
|
|
automaton
|
||
|
|
state Up
|
||
|
|
do y = last y + v
|
||
|
|
until not c then Down
|
||
|
|
state Down
|
||
|
|
do y = last y - v
|
||
|
|
until not c then Up
|
||
|
|
end
|
||
|
|
tel
|
||
|
|
|