Source

ocaml-toys / maze / astar.ml

Diff from to

File maze/astar.ml

     loop ()
 end
 
+(*
 let () =
   let maze, goal, ants = Maze.Parser.from_file "maze/maze.txt" in
   let start = List.hd ants in
   Maze.draw maze;
   Printf.printf "%d steps\n" (List.length path);
   let time = (after -. before) *. 1000. in
-  Printf.printf "%f ms\n" time
+  Printf.printf "%f ms\n" time
+*)