rhi/aoc2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

remove unnecessary exception match

Browse source
This commit is contained in:
Rhiannon Morris 2020-12-05 15:12:50 +01:00
parent c6ba203526
commit da551ffe25
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
day4.ml
View file

@ -105,9 +105,8 @@ module Validators = struct
let year_range lo hi x = let year_range lo hi x =
x =~? {|^\d{4}$|} && x =~? {|^\d{4}$|} &&
match int_of_string x with let x = int_of_string x in
| exception Invalid_argument _ -> false x >= lo && x <= hi
| x -> x >= lo && x <= hi
let%test _ = year_range 1900 2000 "1950" let%test _ = year_range 1900 2000 "1950"
let%test _ = year_range 1900 2000 "1900" let%test _ = year_range 1900 2000 "1900"