From 527bc4762f9c66c9244f0ac1fbee6357478ac9ef Mon Sep 17 00:00:00 2001 From: HJ Date: Thu, 9 Dec 2021 18:05:04 -0500 Subject: putting all my solutions together in 1 repository --- 2020/day-03/day-03.rkt | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 2020/day-03/day-03.rkt (limited to '2020/day-03') diff --git a/2020/day-03/day-03.rkt b/2020/day-03/day-03.rkt new file mode 100644 index 0000000..f540ee6 --- /dev/null +++ b/2020/day-03/day-03.rkt @@ -0,0 +1,22 @@ +#lang racket +(require "../../jj-aoc.rkt" + threading) + +(define (check-for-trees run rise) + (for*/sum ([(row i) (in-indexed (port->lines (open-day 3 2020)))] + #:when (= 0 (modulo i rise)) + [possible-tree (in-value (sequence-ref (in-cycle row) (* (/ run rise) i)))] + #:when (and (char=? possible-tree #\#))) + 1)) + +;; part 1 +(check-for-trees 3 1) + +;; part 2 +(~>> '((1 1) + (3 1) + (5 1) + (7 1) + (1 2)) + (map (curry apply check-for-trees)) + (apply *)) \ No newline at end of file -- cgit v1.2.3