From f5cd4dfa7d3bcdfcc18312d2ca55a476dca956b5 Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Tue, 6 Dec 2022 12:59:21 -0500 Subject: day 6 cleanup --- 2022/day-06/day-06.ipynb | 5 ++--- 2022/day-06/day-06.rkt | 11 +++++------ 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 -- cgit v1.2.3