Skip to content

Instantly share code, notes, and snippets.

@piatra

piatra/main.hs

Created April 26, 2017 06:38
Show Gist options
  • Save piatra/1007cfa5aa2cbbe1f90c754927e89f94 to your computer and use it in GitHub Desktop.
Save piatra/1007cfa5aa2cbbe1f90c754927e89f94 to your computer and use it in GitHub Desktop.
Download ZIP
MSF (State StdGen) (Population a) (Population a)
Raw
main.hs
mainPipeline :: MSF (State StdGen) (Maybe (Population a)) (Population a)
mainPipeline = loop ({- implementarea pasilor de EA -}) >>> justStop
-- pmembers scoate lista de indivizi dintr-o structura { pmembers :: [a], pfitness :: [b] }
justStop :: MSF (State StdGen) (Population a) (Population a)
justStop = MSF $ \x -> return $ takeWhile (not . null . pmembers) x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment