use bitwise-bit-set? in day 3

2021-12-04 23:42:25 +01:00
parent 7bc5df1247
commit dee303e64c
1 changed files with 1 additions and 2 deletions
--- a/day-3.scm
+++ b/day-3.scm
@@ -8,8 +8,7 @@
      (lambda (index number)
 	(let iterate [(bit 0)]
 	  (when (< bit 12)
-	    (when (= 0 (bitwise-and number 
-				  (bitwise-arithmetic-shift-left 1 bit)))
+	    (when (not (bitwise-bit-set? number bit))
 	      (vector-set! zeroes bit 
 			   (+ 1 (vector-ref zeroes bit))))
 	    (iterate (+ 1 bit)))))