epita/notes-ing2
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

surete tp1

Browse source
This commit is contained in:
JOLIMAITRE Matthieu 2024-03-10 21:33:20 +01:00
parent 41bc6fdbf2
commit a85bb57d9a
12 changed files with 199 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
surete/tp1/sequential/sequential.lus Normal file
View file

@ -0,0 +1,32 @@
node always(i : bool) returns (o : bool);
var prev : bool;
let
prev = true -> pre o;
o = if i then prev else false;
tel
node count_true(i : bool) returns (o : int);
var prev : int;
let
prev = 0 -> pre o;
o = if i then prev + 1 else prev;
tel
node count_succ_true(i : bool) returns (o : int);
var
prev_i : bool;
prev_o : int;
let
prev_i = false -> pre i;
prev_o = 0 -> pre o;
o = if i and prev_i then prev_o + 1 else prev_o;
tel
node bounds(i : int) returns (min, max : int);
var prev_min, prev_max : int;
let
prev_min = i -> pre min;
prev_max = i -> pre max;
min = if (i < prev_min) then i else prev_min;
max = if (i > prev_max) then i else prev_max;
tel