diff --git a/src/Main.hs b/src/Main.hs index 14edc29..c0b5565 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -81,8 +81,11 @@ main = do V.foldl (\acc a -> acc V.++ a V.++ V.singleton '\n') V.empty ( outputs - V.++ V.singleton (V.fromList $ show char) - V.++ V.singleton (V.fromList $ show (pos s) ++ " " ++ show (rot s)) + -- V.++ V.singleton (V.fromList $ show char) + -- V.++ V.singleton (V.fromList $ show (pos s) ++ " " ++ show (rot s)) + V.++ V.singleton (V.empty) + V.++ V.singleton (V.empty) + V.++ V.singleton (V.empty) ) deepseq foutput (putStr foutput) ) diff --git a/src/Map.hs b/src/Map.hs index 31d10c5..821c313 100644 --- a/src/Map.hs +++ b/src/Map.hs @@ -18,5 +18,19 @@ map = fromLists , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', '#', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] , ['#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#'] ]