ericonr
/
adventofcode
mirror of https://github.com/ericonr/adventofcode.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Advent 2021, day 5: simplify and speed up a bunch. 

Execution time is now irrelevant.

Could probably be further simplified for just counting members when they
are present in hash table, but no need for it yet.
This commit is contained in:
Érico Nogueira 2021-12-05 04:39:28 -03:00
parent 6557cbef12
commit 3c115266de
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
2021/day5/p.rkt
View File

@ -35,12 +35,9 @@
(for/list ([i (my-range (cdrm p1) (cdrm p2))]) (cons (car p1) i))
(for/list ([i (my-range (car p1) (car p2))]) (cons i (cdrm p1)))))
(define count1 (for*/list ([v (in-list list1)] [p (in-list (process-v v))]) p))
(define h1 (make-hash))
(for* ([v (in-list list1)] [p (in-list (process-v v))]) (hash-update! h1 p add1 0))
(display "done creating count1\n")
(define already-count1 null)
(for ([p (in-list count1)] #:unless (member p already-count1))
(when (member p (cdr (member p count1)))
(set! already-count1 (append already-count1 (list p)))))
(display "res1: ") (display (length already-count1))
(display "res1: ")
(for/sum ([v (in-hash-values h1)] #:when (>= v 2)) 1)