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

15
surete/tp1/sequential/count_succ_true.ec Normal file
View file

@ -0,0 +1,15 @@
node count_succ_true
(i: bool)
returns
(o: int);
var
V12_prev_i: bool;
V13_prev_o: int;
let
o = (if (i and V12_prev_i) then (V13_prev_o + 1) else V13_prev_o);
V12_prev_i = (false -> (pre i));
V13_prev_o = (0 -> (pre o));
tel