Hans/haga
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prevent duplicate sample of next generation

Browse Source
This commit is contained in:
Johannes Merl 2024-02-12 15:40:35 +01:00
parent 1ae23c20ee
commit 62cf1acc6d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/GA.hs
View File

@ -258,8 +258,7 @@ run select nParents nX pElite pop term = do
then return currPop' then return currPop'
else do else do
let nextPop = stepSteady select nParents nX pElite currPop' let nextPop = stepSteady select nParents nX pElite currPop'
nextPop' <- lift $ sampleFrom mwc $ nextPop let fBest = fitness $ NE.head $ fst $ bests 1 currPop'
let fBest = fitness $ NE.head $ fst $ bests 1 nextPop'
Pipes.yield (generation, fBest) Pipes.yield (generation, fBest)
x nextPop (generation + 1) x nextPop (generation + 1)
x pop 0 x pop 0