(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-04-22 15:31:24 CEST by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-04-22 18:25:49 CEST by Kim Nguyen>
*)
INCLUDE "utils.ml"
Ata.reset auto;
while !redo do
redo := false;
- Ata.reset auto;
+ Ata.reset auto; (* prevents the .cache2 and .cache4 memoization tables from growing too much *)
redo := top_down_run auto tree node cache !iter;
incr iter;
done;
- at_exit (fun () -> eprintf "INFO: %i iterations\n" !iter);
+ at_exit (fun () -> eprintf "@[STATS: %i iterations@]@." !iter);
let r = get_results auto tree node cache in
TRACE(Html.gen_trace (module T : Tree.S with type t = T.t) (tree));
r