Skip to content

Commit

Permalink
Temporary quick compilation fix
Browse files Browse the repository at this point in the history
  • Loading branch information
ForNeVeR committed Jul 8, 2023
1 parent b22f252 commit ac28337
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Icfpc2023/Scoring.fs
Original file line number Diff line number Diff line change
Expand Up @@ -32,7 +32,7 @@ let private CalculateAttendeeNoBlockingScore (musicians: Musician[]) (attendee:
CalculateAttendeeMusicianScore attendee musician
)

let CalculateMusicianNoBlockingScore (attendees: Attendee[]) (musician: Musician): Score =
let private CalculateMusicianNoBlockingScore (attendees: Attendee[]) (musician: Musician): Score =
Seq.indexed attendees
|> Seq.sumBy(fun (i, attendee) ->
CalculateAttendeeMusicianScore attendee musician
Expand All @@ -52,4 +52,4 @@ let CalculateNoBlockingScore(problem: Problem) (solution: Solution): Score =
|> Seq.zip solution.Placements
|> Seq.map(fun(p, i) -> { Instrument = i; Location = p })
|> Seq.toArray
problem.Attendees |> Array.sumBy(CalculateAttendeeNoBlokingScore musicians)
problem.Attendees |> Array.sumBy(failwith "CalculateAttendeeNoBlokingScore" musicians)

0 comments on commit ac28337

Please sign in to comment.