From 79b3527eed6be5307466366380025becfd709f85 Mon Sep 17 00:00:00 2001 From: Mistivia Date: Fri, 19 Apr 2024 19:42:12 +0800 Subject: solve day 15 part 1 --- 15/1.rkt | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 15/1.rkt diff --git a/15/1.rkt b/15/1.rkt new file mode 100644 index 0000000..448a10e --- /dev/null +++ b/15/1.rkt @@ -0,0 +1,19 @@ +#lang racket + +(define line + (call-with-input-file "input" + (λ (fp) (read-line fp)))) + +(define strs (string-split line ",")) + +(define (calc-hash str) + (define len (string-length str)) + (let loop ((i 0) (cur 0)) + (if (< i len) + (let () + (define c (string-ref str i)) + (define ascii (char->integer c)) + (loop (+ i 1) (modulo (* 17 (+ cur ascii)) 256))) + cur))) + +(apply + (map calc-hash strs)) \ No newline at end of file -- cgit v1.0