stepEvolution 0 _ datum pop = return $ map (\(a,f) -> if(isNaN f) then (a,0) else (a,f)) $ indiFit datum <$> pop
stepEvolution 0 _ datum pop = return $ map (\(a,f) -> if(isNaN f) then (a,0) else (a,f)) $ indiFit datum <$> pop
stepEvolution 0 _ datum pop = return $ map (\(a,f) -> if(isNaN f) then (a,0) else (a,f)) $ indiFit datum <$> pop