diff options
| author | Tomasz Chojnacki <tomaszchojnacki2001@gmail.com> | 2022-12-07 14:23:47 +0100 |
|---|---|---|
| committer | Tomasz Chojnacki <tomaszchojnacki2001@gmail.com> | 2022-12-07 14:23:47 +0100 |
| commit | 8d9513e9df67c5ec0abc2d94152f350274233643 (patch) | |
| tree | 926d8e378c7534baddf76800971762b1a2c2cea0 /aoc-2022-dotnet/Day04 | |
| parent | bea11616e6b3c26b14534feb87317619009236d1 (diff) | |
| download | gleam_aoc2020-8d9513e9df67c5ec0abc2d94152f350274233643.tar.gz gleam_aoc2020-8d9513e9df67c5ec0abc2d94152f350274233643.zip | |
Refactor earlier solutions
Diffstat (limited to 'aoc-2022-dotnet/Day04')
| -rw-r--r-- | aoc-2022-dotnet/Day04/Day04.fsproj | 4 | ||||
| -rw-r--r-- | aoc-2022-dotnet/Day04/Program.fs | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/aoc-2022-dotnet/Day04/Day04.fsproj b/aoc-2022-dotnet/Day04/Day04.fsproj index 44c3fba..358ef88 100644 --- a/aoc-2022-dotnet/Day04/Day04.fsproj +++ b/aoc-2022-dotnet/Day04/Day04.fsproj @@ -19,4 +19,8 @@ <PackageReference Include="FParsec" Version="1.1.1" /> </ItemGroup> + <ItemGroup> + <ProjectReference Include="..\Common\Common.fsproj" /> + </ItemGroup> + </Project> 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) |