Helpers: Maek lambda
This commit is contained in:
parent
3e42c47585
commit
230e0477a3
|
@ -24,8 +24,7 @@ getBounds m = (getMinX, getMinY, getMaxX, getMaxY)
|
||||||
getMaxY = getFromMap maximum v2y
|
getMaxY = getFromMap maximum v2y
|
||||||
getMinX = getFromMap minimum v2x
|
getMinX = getFromMap minimum v2x
|
||||||
getMinY = getFromMap minimum v2y
|
getMinY = getFromMap minimum v2y
|
||||||
f f1 f2 k a result = f1 [f2 k, result]
|
getFromMap f1 f2 = M.foldrWithKey (\k _ result -> f1 [f2 k, result]) 0 m
|
||||||
getFromMap f1 f2 = M.foldrWithKey (f f1 f2) 0 m
|
|
||||||
|
|
||||||
drawMap :: M.Map Integer Char -> M.Map (V2 Int) Integer -> String
|
drawMap :: M.Map Integer Char -> M.Map (V2 Int) Integer -> String
|
||||||
drawMap dict m =
|
drawMap dict m =
|
||||||
|
|
Loading…
Reference in New Issue
Block a user