remove debug output and extend map
This commit is contained in:
parent
824ca45298
commit
b146141c3c
|
@ -81,8 +81,11 @@ main = do
|
||||||
V.foldl (\acc a -> acc V.++ a V.++ V.singleton '\n')
|
V.foldl (\acc a -> acc V.++ a V.++ V.singleton '\n')
|
||||||
V.empty
|
V.empty
|
||||||
( outputs
|
( outputs
|
||||||
V.++ V.singleton (V.fromList $ show char)
|
-- V.++ V.singleton (V.fromList $ show char)
|
||||||
V.++ V.singleton (V.fromList $ show (pos s) ++ " " ++ show (rot s))
|
-- 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)
|
deepseq foutput (putStr foutput)
|
||||||
)
|
)
|
||||||
|
|
14
src/Map.hs
14
src/Map.hs
|
@ -18,5 +18,19 @@ map = fromLists
|
||||||
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', '#', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
|
, ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#']
|
||||||
, ['#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#']
|
, ['#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#']
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in a new issue