Commit 9fb83919 by MARCHE Claude

### Replayer: even more detailed statistics

parent 162b91ef
 ... @@ -240,11 +240,11 @@ let goal_statistics (goals,n,m) g = ... @@ -240,11 +240,11 @@ let goal_statistics (goals,n,m) g = let theory_statistics (ths,n,m) th = let theory_statistics (ths,n,m) th = let goals,n1,m1 = List.fold_left goal_statistics ([],0,0) (M.goals th) in let goals,n1,m1 = List.fold_left goal_statistics ([],0,0) (M.goals th) in ((th,goals,n1,m1)::ths,(if M.verified th then n+1 else n),m+1) ((th,goals,n1,m1)::ths,n+n1,m+m1) let file_statistics (files,n,m) f = let file_statistics (files,n,m) f = let ths,n1,m1 = List.fold_left theory_statistics ([],0,0) f.M.theories in let ths,n1,m1 = List.fold_left theory_statistics ([],0,0) f.M.theories in ((f,ths,n1,m1)::files,(if f.M.file_verified then n+1 else n),m+1) ((f,ths,n1,m1)::files,n+n1,m+m1) let print_statistics files = let print_statistics files = List.iter List.iter ... @@ -297,11 +297,11 @@ let () = ... @@ -297,11 +297,11 @@ let () = printf " %d/%d@." n m ; printf " %d/%d@." n m ; match report with match report with | [] -> | [] -> if !opt_stats && n | _ -> List.iter print_report report; List.iter print_report report; if !opt_stats && n
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!