2019-05-30 12:40:32 +02:00
|
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
2019-10-18 09:10:11 +02:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
2019-05-30 12:40:32 +02:00
|
|
|
|
|
|
|
import Protolude
|
2019-10-18 09:10:11 +02:00
|
|
|
import WS19
|
2019-10-17 19:50:19 +02:00
|
|
|
|
|
|
|
main = do
|
|
|
|
pop <- mkPop
|
2019-10-18 09:10:11 +02:00
|
|
|
ga' 2 1 pop (steps 10000) 10
|
|
|
|
putText "Done."
|
2019-10-17 19:50:19 +02:00
|
|
|
|
|
|
|
mkPop = population 100 (I prios [])
|