getBestFit :: Evolvable a => EvData a -> Population a -> (a,Double)
getBestFit datum pop = head $ L.sortBy (compare `on` snd) $ indiFit datum <$> pop
getBestFit :: Evolvable a => EvData a -> Population a -> (a,Double)
getBestFit datum pop = head $ L.sortBy (compare `on` snd) $ indiFit datum <$> pop
getBestFit datum pop = head $ L.sortBy (compare `on` snd) $ indiFit datum <$> pop