From dee303e64c6a0dfe517f5bf1ef4a029a6baa8da1 Mon Sep 17 00:00:00 2001
From: MsK` <msk@lywenn.eu.org>
Date: Sat, 4 Dec 2021 23:42:25 +0100
Subject: [PATCH] use bitwise-bit-set? in day 3

---
 day-3.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/day-3.scm b/day-3.scm
index 94a5f7e..dc33fd1 100644
--- 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)))))