- eprintf "Time : %f seconds\n%!" (t1 -. t0);
- eprintf "Considered : %d\n%!" !(count.considered);
- eprintf "Hashed : %d\n%!" !(count.hashed);
- eprintf "Skipped due to 0 size : %d\n%!" !(count.empty);
- eprintf "Skipped due to unique size : %d\n%!" !(count.unique_size);
- eprintf "Skipped due to unique sample : %d\n%!" !(count.unique_sample);
- eprintf "Ignored due to regex match : %d\n%!" !(count.ignored)
+ let b_to_mb b = (float_of_int b) /. 1024. /. 1024. in
+ let b_to_gb b = (b_to_mb b) /. 1024. in
+ eprintf "Time : %8.2f seconds\n%!" (t1 -. t0);
+ eprintf "Considered : %8d files %6.2f Gb\n%!"
+ !(count.considered_files)
+ (b_to_gb !(count.considered_bytes));
+ eprintf "Sampled : %8d files %6.2f Gb\n%!"
+ !(count.sampled_files)
+ (b_to_gb !(count.sampled_bytes));
+ eprintf "Hashed : %8d files %6.2f Gb %6.2f seconds\n%!"
+ !(count.hashed_files)
+ (b_to_gb !(count.hashed_bytes))
+ (t1_group_by_digest -. t0_group_by_digest);
+ eprintf "Digests : %8d\n%!"
+ !(count.digests);
+ eprintf "Duplicates (Hashed - Digests): %8d\n%!"
+ (!(count.hashed_files) - !(count.digests));
+ eprintf "Skipped due to 0 size : %8d files\n%!" !(count.empty);
+ eprintf "Skipped due to unique size : %8d files %6.2f Gb %6.2f seconds\n%!"
+ !(count.unique_size_files)
+ (b_to_gb !(count.unique_size_bytes))
+ (t1_group_by_size -. t0_group_by_size);
+ eprintf "Skipped due to unique sample : %8d files %6.2f Gb %6.2f seconds\n%!"
+ !(count.unique_sample_files)
+ (b_to_gb !(count.unique_sample_bytes))
+ (t1_group_by_sample -. t0_group_by_sample);
+ eprintf "Ignored due to regex match : %8d files %6.2f Gb\n%!"
+ !(count.ignored_files)
+ (b_to_gb !(count.ignored_bytes))