day 4: tidy

1 files changed, 0 insertions, 5 deletions

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))))