diff --git a/haga.cabal b/haga.cabal index 8eb2ce0..8ab8596 100644 --- a/haga.cabal +++ b/haga.cabal @@ -37,8 +37,7 @@ library exposed-modules: GA , Seminar , Pretty - , SS19 - , WS19 + , Szenario191 executable haga build-depends: base ^>=4.12.0.0 @@ -59,8 +58,7 @@ executable haga other-modules: GA , Seminar , Pretty - , SS19 - , WS19 + , Szenario191 executable haga-tests build-depends: base ^>=4.12.0.0 @@ -82,5 +80,4 @@ executable haga-tests other-modules: GA , Seminar , Pretty - , SS19 - , WS19 \ No newline at end of file + , Szenario191 \ No newline at end of file diff --git a/src/Main.hs b/src/Main.hs index fd53534..dd13cf1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,7 +6,7 @@ import Pipes import Pretty import Protolude hiding (for) import System.IO -import WS19 +import Szenario191 mkPop = population 100 (I prios []) diff --git a/src/Szenario191.hs b/src/Szenario191.hs new file mode 100644 index 0000000..088a43f --- /dev/null +++ b/src/Szenario191.hs @@ -0,0 +1,396 @@ +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +module Szenario191 + ( module Seminar, + module Szenario191, + module GA, + ) +where + +import GA hiding (runTests) +import Protolude +import Seminar hiding (runTests) + +prios :: Priorities +prios = + P + [ ( "A A anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 4), + ("M3", 5), + ("M4", 6), + ("M5", 100), + ("M6", 100), + ("M7", 100), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 7), + ("B4", 100), + ("B5", 100), + ("B6", 3), + ("B7", 2), + ("B8", 1), + ("B9", 100) + ] + ), + ( "B B anonymous@anonym.ous", + [ ("M1", 11), + ("M2", 18), + ("M3", 10), + ("M4", 17), + ("M5", 12), + ("M6", 16), + ("M7", 13), + ("M8", 15), + ("M9", 14), + ("B1", 3), + ("B2", 8), + ("B3", 4), + ("B4", 7), + ("B5", 2), + ("B6", 6), + ("B7", 1), + ("B8", 9), + ("B9", 5) + ] + ), + ( "C C anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 100), + ("M3", 7), + ("M4", 100), + ("M5", 100), + ("M6", 8), + ("M7", 100), + ("M8", 6), + ("M9", 100), + ("B1", 2), + ("B2", 100), + ("B3", 100), + ("B4", 1), + ("B5", 3), + ("B6", 4), + ("B7", 100), + ("B8", 5), + ("B9", 100) + ] + ), + ( "D D anonymous@anonym.ous", + [ ("M1", 6), + ("M2", 100), + ("M3", 5), + ("M4", 8), + ("M5", 9), + ("M6", 3), + ("M7", 14), + ("M8", 2), + ("M9", 15), + ("B1", 100), + ("B2", 12), + ("B3", 13), + ("B4", 7), + ("B5", 11), + ("B6", 10), + ("B7", 4), + ("B8", 1), + ("B9", 16) + ] + ), + ( "E E anonymous@anonym.ous", + [ ("M1", 4), + ("M2", 100), + ("M3", 3), + ("M4", 100), + ("M5", 100), + ("M6", 100), + ("M7", 1), + ("M8", 2), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 4), + ("B5", 2), + ("B6", 3), + ("B7", 100), + ("B8", 1), + ("B9", 100) + ] + ), + ( "F F anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 100), + ("M3", 1), + ("M4", 100), + ("M5", 100), + ("M6", 100), + ("M7", 100), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 4), + ("B3", 100), + ("B4", 3), + ("B5", 1), + ("B6", 2), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "G G anonymous@anonym.ous", + [ ("M1", 3), + ("M2", 4), + ("M3", 1), + ("M4", 7), + ("M5", 9), + ("M6", 5), + ("M7", 2), + ("M8", 6), + ("M9", 8), + ("B1", 4), + ("B2", 8), + ("B3", 9), + ("B4", 5), + ("B5", 1), + ("B6", 2), + ("B7", 6), + ("B8", 3), + ("B9", 7) + ] + ), + ( "H H anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 100), + ("M3", 100), + ("M4", 100), + ("M5", 100), + ("M6", 100), + ("M7", 3), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 2), + ("B8", 1), + ("B9", 100) + ] + ), + ( "I I anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 100), + ("M3", 100), + ("M4", 100), + ("M5", 100), + ("M6", 6), + ("M7", 100), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 4), + ("B5", 1), + ("B6", 2), + ("B7", 100), + ("B8", 5), + ("B9", 3) + ] + ), + ( "J J anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 100), + ("M3", 100), + ("M4", 100), + ("M5", 100), + ("M6", 100), + ("M7", 100), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 3), + ("B6", 100), + ("B7", 2), + ("B8", 1), + ("B9", 100) + ] + ), + ( "K K anonymous@anonym.ous", + [ ("M1", 7), + ("M2", 9), + ("M3", 2), + ("M4", 6), + ("M5", 4), + ("M6", 5), + ("M7", 1), + ("M8", 8), + ("M9", 3), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "L L anonymous@anonym.ous", + [ ("M1", 7), + ("M2", 1), + ("M3", 2), + ("M4", 6), + ("M5", 5), + ("M6", 8), + ("M7", 3), + ("M8", 4), + ("M9", 9), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "M M anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 2), + ("M3", 3), + ("M4", 4), + ("M5", 100), + ("M6", 1), + ("M7", 100), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "O O anonymous@anonym.ous", + [ ("M1", 3), + ("M2", 7), + ("M3", 2), + ("M4", 5), + ("M5", 4), + ("M6", 8), + ("M7", 9), + ("M8", 1), + ("M9", 6), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "P P anonymous@anonym.ous", + [ ("M1", 1), + ("M2", 5), + ("M3", 2), + ("M4", 100), + ("M5", 100), + ("M6", 3), + ("M7", 100), + ("M8", 100), + ("M9", 100), + ("B1", 4), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "Q Q anonymous@anonym.ous", + [ ("M1", 3), + ("M2", 100), + ("M3", 3), + ("M4", 100), + ("M5", 100), + ("M6", 1), + ("M7", 4), + ("M8", 2), + ("M9", 100), + ("B1", 5), + ("B2", 100), + ("B3", 100), + ("B4", 6), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "R R anonymous@anonym.ous", + [ ("M1", 100), + ("M2", 100), + ("M3", 2), + ("M4", 100), + ("M5", 1), + ("M6", 100), + ("M7", 3), + ("M8", 100), + ("M9", 100), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ), + ( "S S anonymous@anonym.ous", + [ ("M1", 5), + ("M2", 6), + ("M3", 1), + ("M4", 2), + ("M5", 3), + ("M6", 7), + ("M7", 100), + ("M8", 8), + ("M9", 4), + ("B1", 100), + ("B2", 100), + ("B3", 100), + ("B4", 100), + ("B5", 100), + ("B6", 100), + ("B7", 100), + ("B8", 100), + ("B9", 100) + ] + ) + ]