patrick/AdventOfCode2022
1
0
Fork 0
mirror of https://github.com/Smaug123/AdventOfCode2022 synced 2025-10-07 10:38:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Day 6 and standalone app (#7)

Browse Source
This commit is contained in:
Patrick Stevens
2022-12-06 08:25:16 +00:00
committed by GitHub
parent 0a498ac7d4
commit ef903b33a9
18 changed files with 288 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
AdventOfCode2022.Test/Day3.fs
View File

@@ -9,8 +9,11 @@ open AdventOfCode2022
[<TestFixture true>]
type TestDay3 (efficient : bool) =
let part1 (s : string seq) =
if efficient then Day3Efficient.part1 s else Day3.part1 s
let part1 (s : string) =
if efficient then
Day3Efficient.part1 (StringSplitEnumerator.make '\n' s)
else
s.Split '\n' |> Seq.filter (not << String.IsNullOrEmpty) |> Day3.part1
let part2 (s : string seq) =
if efficient then Day3Efficient.part2 s else Day3.part2 s
@@ -23,7 +26,6 @@ PmmdzqPrVvPwwTWBwg
wMqvLMZHhHMvwLHjbvcjnnSBnvTQFn
ttgJtRGJQctTZtZT
CrZsJsPPZsGzwwsLwLmpwMDw"""
|> fun s -> s.Split System.Environment.NewLine
|> part1
|> shouldEqual 157<Priority>
@@ -31,10 +33,7 @@ CrZsJsPPZsGzwwsLwLmpwMDw"""
member _.``Part 1`` () =
let input = Assembly.readResource "Day3.txt"
input.Split '\n'
|> Seq.filter (not << String.IsNullOrWhiteSpace)
|> part1
|> shouldEqual 8018<Priority>
input |> part1 |> shouldEqual 8018<Priority>
[<Test>]