day7: remove now superfluous list comprehension

2022-12-08 23:00:15 +01:00 · 2022-12-08 23:00:15 +01:00 · b29e31d614
commit b29e31d614
parent 86d4234631
1 changed files with 1 additions and 1 deletions
--- a/2022/day07/day07.hs
+++ b/2022/day07/day07.hs
@ -47,7 +47,7 @@ walk _ z = z


 getDirSize :: IZipper -> Int
-getDirSize ((Folder _ nodes),_) = sum [getSize node | node<-nodes]
+getDirSize ((Folder _ nodes),_) = sum $ map getSize nodes
    where getSize (File _ size) = size
          getSize folder = getDirSize (folder,[])
 getDirSize _ = 0