From f16e6ff141c216f7d696a899994047e1b92b20f2 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Wed, 14 Nov 2018 11:06:40 -0500 Subject: [PATCH] Report total number of files and execution time --- dupfiles.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/dupfiles.ml b/dupfiles.ml index 1bd4d64..8a555e8 100644 --- a/dupfiles.ml +++ b/dupfiles.ml @@ -78,7 +78,10 @@ let main input = | Root_path root -> Stream.rec_file_paths ~root in let paths_by_digest = Hashtbl.create 1_000_000 in + let path_count = ref 0 in + let t0 = Sys.time () in Stream.iter paths ~f:(fun path -> + incr path_count; try let digest = Digest.file path in let paths = @@ -100,7 +103,9 @@ let main input = List.iter paths ~f:(fun path -> printf " %s\n%!" path) end ) - paths_by_digest + paths_by_digest; + let t1 = Sys.time () in + eprintf "Processed %d files in %f seconds.\n%!" !path_count (t1 -. t0) let () = let input = ref Paths_on_stdin in -- 2.20.1