Merge branch 'main' of https://github.com/hunkyjimpjorps/AdventOfCode into main

2 files changed, 7 insertions, 9 deletions

diff --git a/2022/day-06/day-06.ipynb b/2022/day-06/day-06.ipynb
index fc0bb0d..3468d68 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",
-    "         threading\n",
     "         (only-in relation ->list)\n",
     "         (only-in algorithms sliding))\n"
    ]
@@ -58,7 +57,7 @@
     }
    ],
    "source": [
-    "(define buffer (~> (fetch-aoc-input (find-session) 2022 6)))\n",
+    "(define buffer (fetch-aoc-input (find-session) 2022 6))\n",
     "\n",
     "(define (find-marker data type)\n",
     "  (define n\n",
@@ -100,7 +99,7 @@
  ],
  "metadata": {
   "kernelspec": {
-   "display_name": "Racket (Trusted)",
+   "display_name": "Racket (trusted)",
    "language": "racket",
    "name": "racket-trusted"
   },
diff --git a/2022/day-06/day-06.rkt b/2022/day-06/day-06.rkt
index 4eb8323..89b8075 100644
--- a/2022/day-06/day-06.rkt
+++ b/2022/day-06/day-06.rkt
@@ -1,20 +1,19 @@
 #lang racket
 
 (require advent-of-code
-         threading
          (only-in relation ->list ->set)
          (only-in algorithms sliding))
 
-(define buffer (~> (fetch-aoc-input (find-session) 2022 6)))
+(define buffer (fetch-aoc-input (find-session) 2022 6))
 
 (define (find-marker data type)
   (define n
-    (match type
-      ['start-of-packet 4]
-      ['start-of-message 14]))
+    (case type
+      [(start-of-packet) 4]
+      [(start-of-message) 14]))
   (for/first ([chunk (in-list (sliding (->list data) n))]
               [i (in-naturals n)]
-              #:when (= n (~> chunk remove-duplicates length)))
+              #:unless (check-duplicates chunk))
     i))
 
 ;; part 1