1. module Main where
  3. import Text.XML.Light
  4. import Data.Char
  6. main = do entrada <- getContents
  7. let Just doc = parseXMLDoc entrada
  8. tiles = findElements (unqual "tile" ) doc
  10. putStr ( unlines (map join (map junta ( drawfinal2 ( drawS2 doc)))))
  12. join :: [String] -> String
  13. join [a] = a
  14. join (l:ls) = l ++ "\n"++join ls
  16. listatiles :: Element -> [Element]
  17. listatiles doc = findElements (unqual "tile") doc
  19. retiratudo2 :: [Element] -> [(String,String,(String,String),(String,String))]
  20. retiratudo2 [] = []
  21. retiratudo2 (x:xs) = ( tirajust (findAttr ( unqual "type" ) x), tirajust (findAttr (unqual "orientation") x), (tirajust (findAttr ( unqual "x" ) x), tirajust (findAttr ( unqual "y") x)),tirajust2 (abc( findElement (unqual "follower" ) x)) ) : retiratudo2 xs
  23. abc :: Maybe Element -> Maybe (String,String)
  24. abc Nothing = Nothing
  25. abc (Just l) = Just (tirajust (findAttr ( unqual "player" ) l) , tirajust(findAttr ( unqual "type") l))
  27. tirajust :: Maybe a -> a
  28. tirajust (Just x) = x
  30. tirajust2 :: Maybe (String,String) -> (String,String)
  31. tirajust2 (Just (x,y)) = (x,y)
  32. tirajust2 Nothing = ("","")
  34. rInt :: String -> Int
  35. rInt = read
  37. tab :: (Int, Int, Int, Int) -> [[(Int,Int)]]
  38. tab (xmi,ymi,xma,yma) = [ [ (x,y) | x <- [xmi .. xma] ]
  39. | y <- [yma, yma-1 .. ymi]]
  41. limite2 :: [(String,String,(String,String),(String,String))] -> (Int,Int,Int,Int)
  42. limite2 l =( rInt (minimum (map retirax l)),rInt (minimum (map retiray l)),rInt (maximum (map retirax l)),rInt (maximum (map retiray l)))
  44. retirax:: (String,String, (String,String),(String,String))-> String
  45. retirax (_,_,(x,_),(_,_)) = x
  47. retiray:: (String,String,(String,String),(String,String))-> String
  48. retiray (_,_,(_,y),(_,_)) = y
  50. searchTile2 :: [(String,String, (String,String),(String,String))] -> (Int,Int) -> (String,String,(String,String))
  51. searchTile2 [] _ = ("_","",("",""))
  52. searchTile2 ((c,d,(x,y),(w,z)):ts) (xs,ys) = if ((rInt x) == xs && (rInt y) == ys) then (c,d,(w,z))
  53. else searchTile2 ts (xs,ys)
  55. drawS2 :: Element -> [[(String,String,(String,String))]]
  56. drawS2 el = let info = retiratudo2 ( listatiles el)
  57. in if info == [] then []
  58. else let tabuleiro = tab (limite2 ( info ))
  59. in map (map (searchTile2 info)) tabuleiro
  61. type Funky = (String,String,(String,String))
  63. drawfinal2 l :: [[Funky]] -> [[[String]]]
  64. drawfinal2 l = map (map (transforma2)) l
  66. transforma2 :: Funky -> [String]
  67. transforma2 (p,o,(pl,mt)) |(p,o,("","")) == ("B","N",("","")) = [".....","..O..",".OOO.","..O..","....."]
  68. |(p,o,("","")) == ("E","E",("","")) = ["....*","...**","..***","...**","....*"]
  69. |(p,o,("","")) == ("E","W",("","")) = ["*....","**...","***..","**...","*...."]
  70. |(p,o,("","")) == ("_","",("","")) = [" "," "," "," "," "]
  72. junta :: [[String]] -> [String]
  73. junta x | head x == [] = []
  74. | otherwise = concat (map head x) : junta (map (tail) x)