Bench (#14)

Co-authored-by: Smaug123 <patrick+github@patrickstevens.co.uk> Reviewed-on: #14
2023-12-12 21:03:49 +00:00
parent 4e97a4d454
commit 362a73cc41
6 changed files with 402 additions and 9 deletions
--- a/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Bench/Program.fs
+++ b/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Bench/Program.fs
@@ -0,0 +1,70 @@
+namespace AdventOfCode2023
+
+open BenchmarkDotNet.Attributes
+open BenchmarkDotNet.Configs
+open BenchmarkDotNet.Running
+
+module Benchmarks =
+    type Benchmark1To5 () =
+        [<GlobalSetup>]
+        member _.Setup () = Run.shouldWrite <- false
+
+        [<Params(1, 2, 3, 4, 5)>]
+        member val Day = 0 with get, set
+
+        [<Params(false, true)>]
+        member val IsPartOne = false with get, set
+
+        [<Benchmark>]
+        member this.Benchmark () : unit =
+            Run.allRuns.[this.Day - 1] (not this.IsPartOne) (Inputs.day this.Day)
+
+        [<GlobalCleanup>]
+        member _.Cleanup () = Run.shouldWrite <- true
+
+
+    type Benchmark6To10 () =
+        [<GlobalSetup>]
+        member _.Setup () = Run.shouldWrite <- false
+
+        [<Params(6, 7, 8, 9, 10)>]
+        member val Day = 0 with get, set
+
+        [<Params(false, true)>]
+        member val IsPartOne = false with get, set
+
+        [<Benchmark>]
+        member this.Benchmark () : unit =
+            Run.allRuns.[this.Day - 1] (not this.IsPartOne) (Inputs.day this.Day)
+
+        [<GlobalCleanup>]
+        member _.Cleanup () = Run.shouldWrite <- true
+
+    type Benchmark11To15 () =
+        [<GlobalSetup>]
+        member _.Setup () = Run.shouldWrite <- false
+
+        [<Params(11, 12)>]
+        member val Day = 0 with get, set
+
+        [<Params(false, true)>]
+        member val IsPartOne = false with get, set
+
+        [<Benchmark>]
+        member this.Benchmark () : unit =
+            Run.allRuns.[this.Day - 1] (not this.IsPartOne) (Inputs.day this.Day)
+
+        [<GlobalCleanup>]
+        member _.Cleanup () = Run.shouldWrite <- true
+
+module Program =
+
+    [<EntryPoint>]
+    let main args =
+        let config =
+            ManualConfig.Create(DefaultConfig.Instance).WithOptions ConfigOptions.DisableOptimizationsValidator
+
+        let _summary = BenchmarkRunner.Run<Benchmarks.Benchmark1To5> config
+        let _summary = BenchmarkRunner.Run<Benchmarks.Benchmark6To10> config
+        let _summary = BenchmarkRunner.Run<Benchmarks.Benchmark11To15> config
+        0