daniel/advent-of-code-2021
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use bitwise-bit-set? in day 3

Browse Source
This commit is contained in:
Daniel Borges
2021-12-04 23:42:25 +01:00
parent 7bc5df1247
commit dee303e64c
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
day-3.scm
View File

@@ -8,8 +8,7 @@
(lambda (index number) (lambda (index number)
(let iterate [(bit 0)] (let iterate [(bit 0)]
(when (< bit 12) (when (< bit 12)
(when (= 0 (bitwise-and number (when (not (bitwise-bit-set? number bit))
(bitwise-arithmetic-shift-left 1 bit)))
(vector-set! zeroes bit (vector-set! zeroes bit
(+ 1 (vector-ref zeroes bit)))) (+ 1 (vector-ref zeroes bit))))
(iterate (+ 1 bit))))) (iterate (+ 1 bit)))))