You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.4 KiB
78 lines
2.4 KiB
{-# LANGUAGE ExistentialQuantification #-}
|
|
{-# OPTIONS -Wall #-}
|
|
module StrategyManager where
|
|
|
|
import System.Random(StdGen)
|
|
import Datatypes.Game(Game,Command)
|
|
|
|
type Score = Int
|
|
type StrategyIdx = Int
|
|
type FinishedGame = ([Command], Score, StrategyIdx)
|
|
type GameComputation = [StrategyWrapper]
|
|
|
|
|
|
data StrategyWrapper = forall a . Strategy a => MkStrategyWrapper a
|
|
| FinishedGame ([Command], Int)
|
|
|
|
|
|
data NullStrategy1 = NullS1
|
|
|
|
|
|
|
|
initWrapper :: Strategy a => a -> StrategyWrapper
|
|
initWrapper = MkStrategyWrapper
|
|
|
|
class Strategy a where
|
|
initst :: Game -> StdGen -> Maybe [Command] -> a
|
|
advance :: a -> Either a ([Command], Int)
|
|
getbest :: a -> ([Command], Int)
|
|
|
|
|
|
advanceWrapper :: StrategyWrapper -> StrategyWrapper
|
|
advanceWrapper (FinishedGame result) = (FinishedGame result)
|
|
advanceWrapper (MkStrategyWrapper strategy) = wrapResult $ advance strategy
|
|
where
|
|
wrapResult (Left nextStrategy) = MkStrategyWrapper nextStrategy
|
|
wrapResult (Right result) = FinishedGame result
|
|
|
|
finishedWrapper :: StrategyWrapper -> Bool
|
|
finishedWrapper (FinishedGame _) = True
|
|
finishedWrapper _ = False
|
|
|
|
getbestWrapper :: StrategyWrapper -> ([Command], Int)
|
|
getbestWrapper (FinishedGame result) = result
|
|
getbestWrapper (MkStrategyWrapper st) = getbest st
|
|
|
|
--- puo essere parallelizzato ---
|
|
finishedGameComputation :: GameComputation -> Bool
|
|
finishedGameComputation gc = and $ map finishedWrapper gc
|
|
|
|
-- Ritorna i comandi con i punti piu l indice della strategia
|
|
getBestGameComputation :: GameComputation -> FinishedGame
|
|
getBestGameComputation gameComputation = bestGame
|
|
where
|
|
resultsFromAlgorithms = (map getbestWrapper gameComputation)
|
|
algoIdxs = take (length resultsFromAlgorithms) [ i | i <- [0..]]
|
|
bestGames = zipWith (\(a,b) c -> (a,b,c)) resultsFromAlgorithms algoIdxs
|
|
bestGame = foldl findBest ([], 0, 0) bestGames
|
|
findBest best nextBest = if ((bestScore best) > (bestScore nextBest))
|
|
then best
|
|
else nextBest
|
|
bestScore (_, score, _) = score
|
|
|
|
advanceGameComputation :: GameComputation -> GameComputation
|
|
advanceGameComputation gc = map advanceWrapper gc
|
|
|
|
instance Strategy NullStrategy1 where
|
|
initst _ _ _ = NullS1
|
|
advance _ = Left NullS1
|
|
getbest _ = ([],0)
|
|
|
|
|
|
data NullStrategy2 = NullS2
|
|
|
|
instance Strategy NullStrategy2 where
|
|
initst _ _ _ = NullS2
|
|
advance _ = Left NullS2
|
|
getbest _ = ([],0)
|
|
|