32 lines
880 B
Haskell
32 lines
880 B
Haskell
module Print where
|
|
|
|
import Types
|
|
import Groups
|
|
import Data.List
|
|
import Data.Either
|
|
|
|
printState :: BoardState -> IO ()
|
|
printState bs = do
|
|
putStrLn "== BOARD STATE =="
|
|
putStrLn " - Groups -"
|
|
mapM_ putStrLn $ let zipGroups = zip ['A', 'B'.. ] groups in
|
|
map
|
|
(\(id, x) -> [id] ++ " ~ [ " ++ concatGroup x ++ " ] <-> "
|
|
++
|
|
(map fst $ filter (\(id,y) -> y `elem` (neighborGroups x groups)) zipGroups)
|
|
) zipGroups
|
|
putStrLn " - Downed -"
|
|
mapM_ putStrLn $ map
|
|
(\x -> "~ " ++ show x) $ (ntDowned . bsNeoTokyo) bs
|
|
putStrLn " - GameLog -"
|
|
mapM_ putStrLn $ map
|
|
(\x ->
|
|
case x of
|
|
Left m -> m
|
|
Right e -> "<ERROR> : " ++ e)
|
|
(bsGameLog bs)
|
|
putStrLn " ================="
|
|
where
|
|
groups = (ntGroups . bsNeoTokyo) bs
|
|
concatGroup x = concat $ intersperse ", " (map show x)
|