- open Base
- let main() =
- let source = Lib.parse_file "input" in
- let old_count = List.count ~f:Lib.old_validate source in
- let new_count = List.count ~f:Lib.new_validate source in
- Stdio.printf "%d passwords are valid by the old metric\n" old_count;
- Stdio.printf "%d passwords are valid by the new metric\n" new_count
- let () = main()
|