Non blocking score for musician

codingteam · Jul 8, 2023 · b22f252 · b22f252
1 parent ab8ebb1
commit b22f252
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/Icfpc2023/Scoring.fs b/Icfpc2023/Scoring.fs
@@ -32,6 +32,12 @@ let private CalculateAttendeeNoBlockingScore (musicians: Musician[]) (attendee:
         CalculateAttendeeMusicianScore attendee musician
     )
 
+let CalculateMusicianNoBlockingScore (attendees: Attendee[]) (musician: Musician): Score =
+    Seq.indexed attendees
+    |> Seq.sumBy(fun (i, attendee) ->
+        CalculateAttendeeMusicianScore attendee musician
+    )
+
 let CalculateScore(problem: Problem) (solution: Solution): Score =
     let musicians =
         problem.Musicians