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

17
surete/tp1/sequential/bounds.ec Normal file
View file

@ -0,0 +1,17 @@
node bounds
(i: int)
returns
(min: int;
max: int);
var
V18_prev_min: int;
V19_prev_max: int;
let
min = (if (i < V18_prev_min) then i else V18_prev_min);
max = (if (i > V19_prev_max) then i else V19_prev_max);
V18_prev_min = (i -> (pre min));
V19_prev_max = (i -> (pre max));
tel