diff options
Diffstat (limited to 'Biz/Dragons/Analysis.hs')
| -rw-r--r-- | Biz/Dragons/Analysis.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Biz/Dragons/Analysis.hs b/Biz/Dragons/Analysis.hs index cfdbf2c..8641a6d 100644 --- a/Biz/Dragons/Analysis.hs +++ b/Biz/Dragons/Analysis.hs @@ -238,7 +238,8 @@ calculateScore 0 _ _ = 0 calculateScore a 0 0 | a > 0 = 100 calculateScore a b c | a < 0 || b < 0 || c < 0 = 0 calculateScore numTotal numBlackholes numLiabilities = - max 0 <. round + max 0 + <. round <| maxScore * (weightedBlackholes + weightedLiabilities + numGood) / numTotal |