elvis/lci
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added powmod in utility and PowerMod in the sintax and semantics of MiniImp

Browse Source
This commit is contained in:
elvis
2024-10-07 14:13:28 +02:00
parent f40428251a
commit 27c82f6357
5 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/miniImp.ml
View File

@ -28,6 +28,7 @@ and a_exp =
| Division of a_exp * a_exp (* a / a *)
| Modulo of a_exp * a_exp (* a % a *)
| Power of a_exp * a_exp (* a ^ a *)
| PowerMod of a_exp * a_exp * a_exp (* a ^ a % a *)
| Rand of a_exp (* rand(0, a) *)
@ -118,6 +119,12 @@ and evaluate_a (mem: memory) (exp_a: a_exp) =
let exp_a2val = evaluate_a mem exp_a2 in
Utility.pow exp_a1val exp_a2val
)
| PowerMod (exp_a1, exp_a2, exp_a3) -> (
let exp_a1val = evaluate_a mem exp_a1 in
let exp_a2val = evaluate_a mem exp_a2 in
let exp_a3val = evaluate_a mem exp_a3 in
Utility.powmod exp_a1val exp_a3val exp_a2val
)
| Rand (exp_a) -> (
Random.int (evaluate_a mem exp_a)
)