From 383a8dc3d7eac31b0cbe40e63f18b72c47311e0e Mon Sep 17 00:00:00 2001 From: Juan Marín Noguera Date: Mon, 23 Dec 2024 00:15:46 +0100 Subject: Remove unused stuff from day 21 --- day21.scm | 7 ------- 1 file changed, 7 deletions(-) diff --git a/day21.scm b/day21.scm index 5df0898..481917e 100644 --- a/day21.scm +++ b/day21.scm @@ -34,7 +34,6 @@ (array-ref obj (- m 1) 0) (array-ref obj (- m 1) (- n 1))))))))) - (define (horizontal-key src dst) (cond ((= src dst) 0) ((> src dst) 3) @@ -87,7 +86,6 @@ next) (define +keypad0+ (make-array 0 5 5)) - (define +directional-keypad-spec+ #2((#f 2 0) (3 4 1))) (define +numerical-keypad-spec+ #2((7 8 9) (4 5 6) (1 2 3) (#f 0 10))) @@ -99,11 +97,6 @@ (next-keypad directional +numerical-keypad-spec+) (iter (- left 1) (next-keypad directional +directional-keypad-spec+))))) - -(define +keypad1+ (next-keypad +keypad0+ +directional-keypad-spec+)) -(define +keypad2+ (next-keypad +keypad1+ +directional-keypad-spec+)) -(define +keypad3+ (next-keypad +keypad2+ +numerical-keypad-spec+)) - (define (char->num c) (assume (and (char? c) (or (char<=? #\0 c #\9) (char=? c #\A))) "c should be one of the characters in the numerical pad.") -- cgit v1.2.3