From b146141c3ccdb8a46f5925e88d62eb583b4186c3 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 25 Apr 2020 15:12:12 +0200 Subject: [PATCH] remove debug output and extend map --- src/Main.hs | 7 +++++-- src/Map.hs | 14 ++++++++++++++ 2 files changed, 19 insertions(+), 2 deletions(-) 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 , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', '#', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] + , ['#', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '#'] , ['#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#', '#'] ]