commit 17fe83324fb7be8b4c3df67c3ed4e47e3bedb58b parent 62e176e760dc45302031470b9ed7be61e17c6db0 Author: mpizzzle <m@michaelpercival.xyz> Date: Thu, 3 Dec 2020 12:00:48 +0000 minor refactoring Diffstat:
| M | 2020/puzzle_3.scm | | | 16 | ++++++++-------- |
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/2020/puzzle_3.scm b/2020/puzzle_3.scm @@ -1,20 +1,20 @@ (define (check-slice slice x) (if (char=? (string-ref slice (modulo x (string-length slice))) ##) 1 0)) -(define (count-trees tree-map x x-offset y y-offset) +(define (count-trees tree-map x y x-offset y-offset) (if (not (null? tree-map)) (+ (if (= (modulo y y-offset) 0) (+ (check-slice (car tree-map) x)) 0) - (count-trees (cdr tree-map) (if (= (modulo y y-offset) 0) (+ x x-offset) x) x-offset (+ y 1) y-offset)) + (count-trees (cdr tree-map) (if (= (modulo y y-offset) 0) (+ x x-offset) x) (+ y 1) x-offset y-offset)) 0)) (load "read_lines.scm") (define input (read-lines "files/3.txt" (lambda (x) x))) -(display (count-trees input 0 3 0 1)) (newline) +(display (count-trees input 0 0 3 1)) (newline) -(display (* (count-trees input 0 1 0 1) - (count-trees input 0 3 0 1) - (count-trees input 0 5 0 1) - (count-trees input 0 7 0 1) - (count-trees input 0 1 0 2))) (newline) +(display (* (count-trees input 0 0 1 1) + (count-trees input 0 0 3 1) + (count-trees input 0 0 5 1) + (count-trees input 0 0 7 1) + (count-trees input 0 0 1 2))) (newline)