From 1012f0145986ec742519857e0ea810924e3e15e9 Mon Sep 17 00:00:00 2001
From: Hunky Jimpjorps <thechairman@thechairman.info>
Date: Tue, 6 Dec 2022 13:06:18 -0500
Subject: day 6 cleanup

---
 2022/day-06/day-06.ipynb | 3 +--
 2022/day-06/day-06.rkt   | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

(limited to '2022')

diff --git a/2022/day-06/day-06.ipynb b/2022/day-06/day-06.ipynb
index 3468d68..0c89fa1 100644
--- a/2022/day-06/day-06.ipynb
+++ b/2022/day-06/day-06.ipynb
@@ -22,7 +22,6 @@
    "source": [
     "(require racket\n",
     "         advent-of-code\n",
-    "         (only-in relation ->list)\n",
     "         (only-in algorithms sliding))\n"
    ]
   },
@@ -64,7 +63,7 @@
     "    (match type\n",
     "      ['start-of-packet 4]\n",
     "      ['start-of-message 14]))\n",
-    "  (for/first ([chunk (in-list (sliding (->list data) n))]\n",
+    "  (for/first ([chunk (in-list (sliding (string->list data) n))]\n",
     "              [i (in-naturals n)]\n",
     "              #:when (= n (~> chunk remove-duplicates length)))\n",
     "    i))\n",
diff --git a/2022/day-06/day-06.rkt b/2022/day-06/day-06.rkt
index 89b8075..1c167a6 100644
--- a/2022/day-06/day-06.rkt
+++ b/2022/day-06/day-06.rkt
@@ -1,7 +1,6 @@
 #lang racket
 
 (require advent-of-code
-         (only-in relation ->list ->set)
          (only-in algorithms sliding))
 
 (define buffer (fetch-aoc-input (find-session) 2022 6))
@@ -11,7 +10,7 @@
     (case type
       [(start-of-packet) 4]
       [(start-of-message) 14]))
-  (for/first ([chunk (in-list (sliding (->list data) n))]
+  (for/first ([chunk (in-list (sliding (string->list data) n))]
               [i (in-naturals n)]
               #:unless (check-duplicates chunk))
     i))
-- 
cgit v1.2.3