main.ml 341 B

12345678910
  1. open Base
  2. let main() =
  3. let source = Lib.parse_file "input" in
  4. let old_count = List.count ~f:Lib.old_validate source in
  5. let new_count = List.count ~f:Lib.new_validate source in
  6. Stdio.printf "%d passwords are valid by the old metric\n" old_count;
  7. Stdio.printf "%d passwords are valid by the new metric\n" new_count
  8. let () = main()