Fast no-blocking score

codingteam · Jul 8, 2023 · ab8ebb1 · ab8ebb1
1 parent 94a92ff
commit ab8ebb1
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/Icfpc2023/Scoring.fs b/Icfpc2023/Scoring.fs
@@ -26,10 +26,24 @@ let private CalculateAttendeeScore (musicians: Musician[]) (attendee: Attendee):
         else CalculateAttendeeMusicianScore attendee musician
     )
 
+let private CalculateAttendeeNoBlockingScore (musicians: Musician[]) (attendee: Attendee): Score =
+    Seq.indexed musicians
+    |> Seq.sumBy(fun (i, musician) ->
+        CalculateAttendeeMusicianScore attendee musician
+    )
+
 let CalculateScore(problem: Problem) (solution: Solution): Score =
     let musicians =
         problem.Musicians
         |> Seq.zip solution.Placements
         |> Seq.map(fun(p, i) -> { Instrument = i; Location = p })
         |> Seq.toArray
     problem.Attendees |> Array.sumBy(CalculateAttendeeScore musicians)
+
+let CalculateNoBlockingScore(problem: Problem) (solution: Solution): Score =
+    let musicians =
+        problem.Musicians
+        |> Seq.zip solution.Placements
+        |> Seq.map(fun(p, i) -> { Instrument = i; Location = p })
+        |> Seq.toArray
+    problem.Attendees |> Array.sumBy(CalculateAttendeeNoBlokingScore musicians)