diff options
Diffstat (limited to 'aoc-2022-dotnet/Day04/Program.fs')
| -rw-r--r-- | aoc-2022-dotnet/Day04/Program.fs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/aoc-2022-dotnet/Day04/Program.fs b/aoc-2022-dotnet/Day04/Program.fs index 25cc3b6..2221a4a 100644 --- a/aoc-2022-dotnet/Day04/Program.fs +++ b/aoc-2022-dotnet/Day04/Program.fs @@ -6,10 +6,7 @@ open FParsec let parseLine line = let prange = pint32 .>> pstring "-" .>>. pint32 let ppair = prange .>> pstring "," .>>. prange .>> eof - - match run ppair line with - | Success (result, _, _) -> result - | _ -> failwith "Invalid line format!" + Common.parse ppair line let fullyOverlap ((a, b), (c, d)) = (a <= c && d <= b) || (c <= a && b <= d) |