haga/src/Main.hs

18 lines
197 B
Haskell
Raw Normal View History

2019-05-30 12:40:32 +02:00
{-# LANGUAGE NoImplicitPrelude #-}
import Protolude
import GA
import SS19
main = do
pop <- mkPop
ga' 2 1 pop (\_ t -> t > 100) 10
putStrLn "Done."
mkPop = population 100 (I prios [])