From 8b200eebe9c88f98e7136b206790d6ef472a28ac Mon Sep 17 00:00:00 2001
From: lamp
Date: Fri, 8 Dec 2023 14:31:31 +0000
Subject: day 4: tidy

---
 4-2.scm | 5 -----
 1 file changed, 5 deletions(-)

(limited to '4-2.scm')

diff --git a/4-2.scm b/4-2.scm
index 48517ce..940346a 100755
--- a/4-2.scm
+++ b/4-2.scm
@@ -25,11 +25,6 @@
        (lines (read-lines port))
        (cards (map parse lines)))
   (close-port port)
-  ;; (while (< index (length cards))
-  ;;   (do ((i 1 (1+ i))) ((> i (cdr (list-ref cards index))))
-  ;;     (set! cards (append cards `(,(assoc (+ (car (list-ref cards index)) i) cards)))))
-  ;;   (set! index (1+ index)))
-  ;; (display (length cards))
   (do ((i 0 (1+ i))) ((= i (length cards)))
     (do ((j 1 (1+ j))) ((> j (car (list-ref cards i))))
       (let ((card (list-ref cards (+ i j))))
-- 
cgit v1.2.3