quintenk
/
adventofcode
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove more useless code

This commit is contained in:
Quinten Kock 2021-12-13 07:03:39 +01:00
parent 414cb602af
commit 476ace2593
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2021/day13.hs
View File

@ -31,9 +31,7 @@ main = do
putStrLn "part 2: " putStrLn "part 2: "
let dots2 = map (\d -> foldl (flip fold) d folds) dots let dots2 = map (\d -> foldl (flip fold) d folds) dots
let dots2' = S.fromList dots2 let dots2' = S.fromList dots2
let min_x = minimum $ map fst dots2
let max_x = maximum $ map fst dots2 let max_x = maximum $ map fst dots2
let min_y = minimum $ map snd dots2
let max_y = maximum $ map snd dots2 let max_y = maximum $ map snd dots2
mapM_ (\y -> do mapM_ (\y -> do
mapM_ (\x -> putChar (if (x,y) `S.member` dots2' then '#' else '.')) [0..max_x] mapM_ (\x -> putChar (if (x,y) `S.member` dots2' then '#' else '.')) [0..max_x]