jmug/CS153
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Even terser syntax

Browse source 
Signed-off-by: jmug <u.g.a.mariano@gmail.com>
This commit is contained in:
Mariano Uvalle 2025-01-30 21:06:06 -08:00
parent bf76aced95
commit ef00bbf168
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
hw2/bin/simulator.ml
View file

@ -169,8 +169,7 @@ let ( >=. ) a b = Int64.compare a b >= 0
(* Interpret a condition code with respect to the given flags. *) (* Interpret a condition code with respect to the given flags. *)
(* !!! Check the Specification for Help *) (* !!! Check the Specification for Help *)
let interp_cnd { fo; fs; fz } : cnd -> bool = fun c -> let interp_cnd { fo; fs; fz } : cnd -> bool = function
match c with
| Eq -> fz | Eq -> fz
| Neq -> not fz | Neq -> not fz
| Gt -> fo = fs && not fz | Gt -> fo = fs && not fz