dax/advent-of-code-2022
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Day 7 Cleanup

Browse Source
This commit is contained in:
Jens Kadenbach
2022-12-07 16:26:27 +01:00
parent 33871a7f64
commit c115484544
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Day7.hs
View File

@@ -55,9 +55,6 @@ toFiles ((FileListing name size):rest) = (name, size): toFiles rest
toFiles (_:rest) = toFiles rest toFiles (_:rest) = toFiles rest
toFiles [] = [] toFiles [] = []
sizeThreshold :: Int
sizeThreshold = 100000
calculateSize :: Directory -> Int calculateSize :: Directory -> Int
calculateSize dir = sum (Map.elems (files dir)) + sum sizes calculateSize dir = sum (Map.elems (files dir)) + sum sizes
where where