Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Helpers: Maek lambda

This commit is contained in:
shu 2019-12-13 19:35:17 +01:00
parent 3e42c47585
commit 230e0477a3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2019/day13/Helpers.hs
View File

@ -24,8 +24,7 @@ getBounds m = (getMinX, getMinY, getMaxX, getMaxY)
getMaxY = getFromMap maximum v2y
getMinX = getFromMap minimum v2x
getMinY = getFromMap minimum v2y
f f1 f2 k a result = f1 [f2 k, result]
getFromMap f1 f2 = M.foldrWithKey (f f1 f2) 0 m
getFromMap f1 f2 = M.foldrWithKey (\k _ result -> f1 [f2 k, result]) 0 m
drawMap :: M.Map Integer Char -> M.Map (V2 Int) Integer -> String
drawMap dict m =