<PlatformTarget>AnyCPU</PlatformTarget>
<DocumentationFile>bin\$(Configuration)\$(AssemblyName).XML</DocumentationFile>
<Prefer32Bit>true</Prefer32Bit>
- <StartArguments>15</StartArguments>
+ <StartArguments>16</StartArguments>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<Compile Include="Day14.fs" />
<Compile Include="Day14Compact.fs" />
<Compile Include="Day15.fs" />
+ <Compile Include="Day16.fs" />
<Compile Include="Program.fs" />
<None Include="App.config" />
<Content Include="Data\day01.input">
<Content Include="Data\day15.input">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
+ <Content Include="Data\day16.input">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
<Content Include="packages.config" />
</ItemGroup>
<ItemGroup>
--- /dev/null
+module AdventOfCode2017.Day16
\ No newline at end of file
let genA, genB = int64 input.[0], int64 input.[1]
sprintf "part1 = %A, part2 = %A" (Day15.nbSimilarities1 genA genB) (Day15.nbSimilarities2 genA genB)
+let day16 () =
+ let input = File.ReadAllLines "Data/day16.input"
+ sprintf "part1 = %A, part2 = %A" () ()
+
let doDay (n : int) =
let sw = Diagnostics.Stopwatch ()
sw.Start ()
| 13 -> day13 ()
| 14 -> day14 ()
| 15 -> day15 ()
+ | 16 -> day16 ()
| _ -> raise <| NotImplementedException ()
printfn "Result of day %i: %s (time : %i ms)" n result sw.ElapsedMilliseconds
--- /dev/null
+namespace AdventOfCode2017.Tests
+
+open Xunit
+open Xunit.Abstractions
+open Swensen.Unquote
+
+open AdventOfCode2017
+
+type ``Day16 tests`` (output : ITestOutputHelper) =
+
+ [<Fact>]
+ let ``(Part1) From web page`` () =
+ ()
+
+ [<Fact>]
+ let ``(Part2) From web page`` () =
+ ()
\ No newline at end of file
<Compile Include="Day13 tests.fs" />
<Compile Include="Day14 tests.fs" />
<Compile Include="Day15 tests.fs" />
+ <Compile Include="Day16 tests.fs" />
<Content Include="packages.config" />
<Content Include="App.config" />
</ItemGroup>