diff options
Diffstat (limited to '2020/day-03/day-03.rkt')
| -rw-r--r-- | 2020/day-03/day-03.rkt | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/2020/day-03/day-03.rkt b/2020/day-03/day-03.rkt index f540ee6..ee9edcf 100644 --- a/2020/day-03/day-03.rkt +++ b/2020/day-03/day-03.rkt @@ -7,16 +7,10 @@ #:when (= 0 (modulo i rise)) [possible-tree (in-value (sequence-ref (in-cycle row) (* (/ run rise) i)))] #:when (and (char=? possible-tree #\#))) - 1)) + 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 +(~>> '((1 1) (3 1) (5 1) (7 1) (1 2)) (map (curry apply check-for-trees)) (apply *)) |