Fix floating point precision problems in GA.worst

By using negate instead of (1 /).
2019-10-22 07:08:37 +02:00 · 2019-10-22 07:08:37 +02:00 · 3c45c206fc
commit 3c45c206fc
parent 939502e511
1 changed files with 1 additions and 2 deletions
--- a/src/GA.hs
+++ b/src/GA.hs
@ -158,8 +158,7 @@ bestsBy k f =
 The @k@ worst individuals in the population.
 -}
 worst :: (Individual i, Monad m) => N -> Population i -> m [i]
-- TODO (1 /) might not be stable regarding floating point precision
-worst = flip bestsBy (fmap (1 /) . fitness)
+worst = flip bestsBy (fmap negate . fitness)

 {-|
 The @k@ best individuals in the population.