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

Add Szenario191

Browse Source
This commit is contained in:
David Pätzel 2020-01-07 07:48:57 +01:00
parent 9559b7ada6
commit 483e1707c8
3 changed files with 400 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
haga.cabal
View File

@ -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
, Szenario191

2
src/Main.hs
View File

@ -6,7 +6,7 @@ import Pipes
import Pretty
import Protolude hiding (for)
import System.IO
import WS19
import Szenario191
mkPop = population 100 (I prios [])

396
src/Szenario191.hs Normal file
View File

@ -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)
]
)
]