1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

#+SETUPFILE: ~/.emacs.d/orgtemplates/level3.org
#+HTML_LINK_UP: ../../index.html#2020
#+OPTIONS: toc:1
#+EXPORT_FILE_NAME: index
#+TITLE: Day 03  Toboggan Trajectory
* Puzzle
 This puzzle is taken from: https://adventofcode.com/2020/day/3
With the toboggan login problems resolved, you set off toward the
airport. While travel by toboggan might be easy, it's certainly not
safe: there's very minimal steering and the area is covered in trees.
You'll need to see which angles will take you near the fewest trees.
Due to the local geology, trees in this area only grow on exact integer
coordinates in a grid. You make a map (your puzzle input) of the open
squares (.) and trees (#) you can see. For example:
#+BEGIN_SRC
..##.......
#...#...#..
.#....#..#.
..#.#...#.#
.#...##..#.
..#.##.....
.#.#.#....#
.#........#
#.##...#...
#...##....#
.#..#...#.#
#+END_SRC
These aren't the only trees, though; due to something you read about
once involving arboreal genetics and biome stability, the same pattern
repeats to the right many times:
#+BEGIN_SRC
..##.........##.........##.........##.........##.........##....... >
#...#...#..#...#...#..#...#...#..#...#...#..#...#...#..#...#...#..
.#....#..#..#....#..#..#....#..#..#....#..#..#....#..#..#....#..#.
..#.#...#.#..#.#...#.#..#.#...#.#..#.#...#.#..#.#...#.#..#.#...#.#
.#...##..#..#...##..#..#...##..#..#...##..#..#...##..#..#...##..#.
..#.##.......#.##.......#.##.......#.##.......#.##.......#.##..... >
.#.#.#....#.#.#.#....#.#.#.#....#.#.#.#....#.#.#.#....#.#.#.#....#
.#........#.#........#.#........#.#........#.#........#.#........#
#.##...#...#.##...#...#.##...#...#.##...#...#.##...#...#.##...#...
#...##....##...##....##...##....##...##....##...##....##...##....#
.#..#...#.#.#..#...#.#.#..#...#.#.#..#...#.#.#..#...#.#.#..#...#.# >
#+END_SRC
You start on the open square (.) in the topleft corner and need to
reach the bottom (below the bottommost row on your map).
The toboggan can only follow a few specific slopes (you opted for a
cheaper model that prefers rational numbers); start by counting all the
trees you would encounter for the slope right 3, down 1:
From your starting position at the topleft, check the position that is
right 3 and down 1. Then, check the position that is right 3 and down 1
from there, and so on until you go past the bottom of the map.
The locations you'd check in the above example are marked here with O
where there was an open square and X where there was a tree:
#+BEGIN_SRC
..##.........##.........##.........##.........##.........##....... >
#..O#...#..#...#...#..#...#...#..#...#...#..#...#...#..#...#...#..
.#....X..#..#....#..#..#....#..#..#....#..#..#....#..#..#....#..#.
..#.#...#O#..#.#...#.#..#.#...#.#..#.#...#.#..#.#...#.#..#.#...#.#
.#...##..#..X...##..#..#...##..#..#...##..#..#...##..#..#...##..#.
..#.##.......#.X#.......#.##.......#.##.......#.##.......#.##..... >
.#.#.#....#.#.#.#.O..#.#.#.#....#.#.#.#....#.#.#.#....#.#.#.#....#
.#........#.#........X.#........#.#........#.#........#.#........#
#.##...#...#.##...#...#.X#...#...#.##...#...#.##...#...#.##...#...
#...##....##...##....##...#X....##...##....##...##....##...##....#
.#..#...#.#.#..#...#.#.#..#...X.#.#..#...#.#.#..#...#.#.#..#...#.# >
#+END_SRC
In this example, traversing the map using this slope would cause you to
encounter 7 trees.
Starting at the topleft corner of your map and following a slope of
right 3 and down 1, how many trees would you encounter?
** Part 2
Time to check the rest of the slopes  you need to minimize the
probability of a sudden arboreal stop, after all.
Determine the number of trees you would encounter if, for each of the
following slopes, you start at the topleft corner and traverse the map
all the way to the bottom:
 Right 1, down 1.
 Right 3, down 1. (This is the slope you already checked.)
 Right 5, down 1.
 Right 7, down 1.
 Right 1, down 2.
In the above example, these slopes would find 2, 7, 3, 4, and 2 tree(s)
respectively; multiplied together, these produce the answer 336.
What do you get if you multiply together the number of trees encountered
on each of the listed slopes?
* Solution
=counttrees= is a subroutine that will count the number of trees we'll
encounter, it needs =@input=, =$right=, =$down=.
#+BEGIN_SRC raku
sub counttrees (
@input,
Int $right,
Int $down
) {
# Start at top left position.
my $x = 0;
my $y = 0;
my $trees = 0;
my $xmax = @input[0].elems  1;
my $ymax = @input.elems  1;
loop {
$trees++ if @input[$y][$x] eq '#';
$x += $right;
$y += $down;
# Cannot let $x become greater than $xmax because that'll produce
# error when we try to access @input with those positions. So, we
# wrap it around because the same map is repeated.
$x = $xmax + 1 if $x > $xmax;
last if $ymax < $y;
}
return $trees;
}
#+END_SRC
=$xmax= holds the last index of =@input= =x= coordinate & same for =$ymax=
with =y= coordinate. The loop first checks if we've encountered a tree &
increments =$trees= if true. Then =$x= & =$y= are incremented to new
positions.
Later we check if =$x= has become greater than =$max=, if true then we just
wrap =$x= around the map. The map is infinitely long in =x= axis, =$xmax + 1=
is subtracted because that is the length of map in =x= axis after which it
repeats infinitely. We stop when the we reach the bottom most corner of
the map.
For part 1 we simply pass (3, 1) for (=$right=, =$down=) values to
subroutine =counttrees= & print the solution.
#+BEGIN_SRC raku
say "Part 1: ", counttrees(@input, 3, 1);
#+END_SRC
** Part 2
For part 2 we calculate the number of trees for different sets of
(=$right=, =$down=), multiply those numbers & print it.
#+BEGIN_SRC raku
my @trees = [{ right => 1, down => 1 },
{ right => 3, down => 1 },
{ right => 5, down => 1 },
{ right => 7, down => 1 },
{ right => 1, down => 2 },].map(
{counttrees(@input, $_<right>, $_<down>)}
);
say "Part 2: ", [*] @trees;
#+END_SRC
