diff --git a/src/League.elm b/src/League.elm index 56ca795..c546aae 100644 --- a/src/League.elm +++ b/src/League.elm @@ -93,18 +93,15 @@ getPlayer name (League league) = addPlayer : Player -> League -> League addPlayer player (League league) = let - ratings = - Dict.values league.players - |> List.map .rating - |> List.sort - - medianishRating = - ratings - |> List.drop (List.length ratings // 2) - |> List.head - |> Maybe.withDefault Elo.initialRating + initialRating = + case Dict.values league.players |> List.map .rating of + [] -> + Elo.initialRating + + nonEmpty -> + List.sum nonEmpty // List.length nonEmpty in - League { league | players = Dict.insert player.name (Player.setRating medianishRating player) league.players } + League { league | players = Dict.insert player.name (Player.setRating initialRating player) league.players } {-| -}