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

Add primitive iteration count CLI argument

Browse Source
This commit is contained in:
David Pätzel 2019-10-18 13:37:16 +02:00
parent 303120f54a
commit 958bbf25b7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.hs
View File

@ -12,9 +12,11 @@ mkPop = population 100 (I prios [])
main :: IO () main :: IO ()
main = do main = do
args <- getArgs
let t = fromMaybe 100 $ headMay args >>= readMaybe
hSetBuffering stdout NoBuffering hSetBuffering stdout NoBuffering
pop <- mkPop pop <- mkPop
pop' <- runEffect $ for (run 2 1 pop (steps 100)) log pop' <- runEffect $ for (run 2 1 pop (steps t)) log
res <- bests 5 pop' res <- bests 5 pop'
sequence_ $ format <$> res sequence_ $ format <$> res
where where