AI refactor

2021-05-14 12:04:12 +02:00
parent 2dd3756682
commit 0b26761be5
14 changed files with 282 additions and 762 deletions
@@ -38,14 +38,7 @@ import qualified Data.Map as M


 placeSpots :: [PlacementSpot] -> World -> World
-placeSpots pss w = foldr placeSpot w basicPlacements
-    where (collectivePlacements,basicPlacements) = partition typeIsCollective pss
-          typeIsCollective (ps@PS {}) = case _psType ps of CollectivePS {} -> True
-                                                           _               -> False
-          typeIsCollective _ = False
-          
-          groupedPlacements = groupBy ((==) `on` _collectiveID . _psType) 
-                                $ sortBy (compare `on` _collectiveID . _psType) collectivePlacements
+placeSpots pss w = foldr placeSpot w pss

 placeSpot :: PlacementSpot -> World -> World
 placeSpot ps w = case ps of