simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(pure-sat): correct timing printing

Browse source
This commit is contained in:
Simon Cruanes 2022-08-21 13:52:33 -04:00
parent 08606f4be0
commit 65f8a61913
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/main/pure_sat_solver.ml
View file

@ -231,6 +231,8 @@ end
!ok
*)
let start = Sys.time ()
let solve ?(check = false) ?in_memory_proof (solver : SAT.t) :
(unit, string) result =
let res = Profile.with_ "solve" (fun () -> SAT.solve solver) in
@ -239,18 +241,18 @@ let solve ?(check = false) ?in_memory_proof (solver : SAT.t) :
flush stdout;
(match res with
| SAT.Sat _ ->
let t3 = Sys.time () -. t2 in
Format.printf "Sat (%.3f/%.3f)@." t2 t3
let t3 = Sys.time () in
Format.printf "Sat (%.3f/%.3f)@." (t2 -. start) (t3 -. t2)
| SAT.Unsat _ ->
if check then (
match in_memory_proof with
| None ->
Error.errorf "Cannot validate proof, no in-memory proof provided"
| Some proof ->
| Some _proof ->
let ok = true (* FIXME check_proof proof *) in
if not ok then Error.errorf "Proof validation failed"
);
let t3 = Sys.time () -. t2 in
Format.printf "Unsat (%.3f/%.3f)@." t2 t3);
let t3 = Sys.time () in
Format.printf "Unsat (%.3f/%.3f)@." (t2 -. start) (t3 -. t2));
Ok ()