haskal
/
aoc2022
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

day 7: idk

This commit is contained in:
xenia 2022-12-07 00:58:19 -05:00
parent a58b1b478f
commit 459e836026
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
7.rkt
View File

@ -27,25 +27,19 @@
(ft-add-file! file-tree (reverse cwd) file size) (ft-add-file! file-tree (reverse cwd) file size)
cwd])) cwd]))
(define sizes (make-hash)) (define sizes '())
(define (ft-lookup ft path) (define (record-size! ft)
(match path
['() ft]
[(cons fst rst) (ft-lookup (hash-ref ft fst) rst)]))
(define (record-size! ft path)
(define size (define size
(for/sum ([(k v) (in-hash (ft-lookup ft path))]) (for/sum ([(k v) (in-hash ft)])
(if (number? v) (if (number? v)
v v
(record-size! ft (append path (list k)))))) (record-size! v))))
(hash-set! sizes path size) (set! sizes (cons size sizes))
size) size)
(record-size! file-tree '()) (record-size! file-tree)
(sort sizes <))
(sort (hash-values sizes) <))
(define (part1 input) (define (part1 input)
(define *at-most* 100000) (define *at-most* 100000)