From: Neil Smith Date: Sun, 19 Dec 2021 13:33:01 +0000 (+0000) Subject: Done day 17 X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=6de828867120c76997d0611d4f8290b2b954c307;p=advent-of-code-21.git Done day 17 --- diff --git a/advent-of-code21.cabal b/advent-of-code21.cabal index 2532975..8652323 100644 --- a/advent-of-code21.cabal +++ b/advent-of-code21.cabal @@ -187,3 +187,7 @@ executable advent16 main-is: advent16/Main.hs build-depends: binary, bytestring, bitstream, mtl +executable advent17 + import: common-extensions, build-directives + main-is: advent17/Main.hs + build-depends: linear, text, attoparsec, lens diff --git a/advent17/Main.hs b/advent17/Main.hs new file mode 100644 index 0000000..b6a4dab --- /dev/null +++ b/advent17/Main.hs @@ -0,0 +1,72 @@ +-- Writeup at https://work.njae.me.uk/2021/12/19/advent-of-code-2021-day-17/ + +import Data.Text () +import qualified Data.Text.IO as TIO +import Data.Attoparsec.Text hiding (take, takeWhile) + +import Control.Lens +import Linear (V2(..), (^+^), _x, _y) +import Data.Ix + +type Coord = V2 Int +type Bounds = (Coord, Coord) + +data Probe = Probe {_pos :: Coord, _vel :: Coord} + deriving (Show, Eq) +makeLenses ''Probe + + + +main :: IO () +main = + do text <- TIO.readFile "data/advent17.txt" + let target = successfulParse text + print $ part1 target + print $ part2 target + +part1 :: Bounds -> Int +part1 = findYMax + +part2 :: Bounds -> Int +part2 target@(V2 _minXT minYT, V2 maxXT _maxYT) = + length $ filter (hits target) trajectories + where yMax = findYMax target + viable = (V2 0 minYT, V2 maxXT yMax) + launches = [Probe {_pos = V2 0 0, _vel = V2 x y} + | x <- [1..maxXT], y <- [minYT..(abs minYT)] + ] + trajectories = map (simulate viable) launches + +findYMax :: Bounds -> Int +findYMax (V2 _ y, _) = y' * (y' - 1) `div` 2 + where y' = abs y + +step :: Probe -> Probe +step probe = probe & pos .~ (probe ^. pos ^+^ probe ^. vel) & vel .~ vel' + where vel' = V2 (max 0 (vx - 1)) (vy - 1) + V2 vx vy = _vel + -- v = probe ^. vel + -- vel' = v & _x .~ (max 0 ((v ^. _x) - 1)) & _y .~ ((v ^. _y) - 1) + +simulate :: Bounds -> Probe -> [Probe] +simulate viable = takeWhile (within viable) . iterate step + +within :: Bounds -> Probe -> Bool +within limits probe = inRange limits (probe ^. pos) + +hits :: Bounds -> [Probe] -> Bool +hits target = any (within target) + + +-- Parse the input file + +targetP = boundify <$> ("target area: x=" *> regionP) <*> (", y=" *> regionP) + where boundify (x1, x2) (y1, y2) = (V2 x1 y1, V2 x2 y2) + +regionP = (,) <$> (signed decimal <* "..") <*> signed decimal + +-- successfulParse :: Text -> (Integer, [Maybe Integer]) +successfulParse input = + case parseOnly targetP input of + Left _err -> (V2 0 0, V2 0 0) -- TIO.putStr $ T.pack $ parseErrorPretty err + Right target -> target diff --git a/data/advent17.txt b/data/advent17.txt new file mode 100644 index 0000000..3d498ff --- /dev/null +++ b/data/advent17.txt @@ -0,0 +1 @@ +target area: x=156..202, y=-110..-69 \ No newline at end of file diff --git a/problems/day17.html b/problems/day17.html new file mode 100644 index 0000000..7093cfa --- /dev/null +++ b/problems/day17.html @@ -0,0 +1,230 @@ + + + + +Day 17 - Advent of Code 2021 + + + + + + + +

Advent of Code

Neil Smith (AoC++) 34*

   0xffff&2021

+ + + +
+ +

--- Day 17: Trick Shot ---

You finally decode the Elves' message. HI, the message says. You continue searching for the sleigh keys.

+

Ahead of you is what appears to be a large ocean trench. Could the keys have fallen into it? You'd better send a probe to investigate.

+

The probe launcher on your submarine can fire the probe with any integer velocity in the x (forward) and y (upward, or downward if negative) directions. For example, an initial x,y velocity like 0,10 would fire the probe straight up, while an initial velocity like 10,-1 would fire the probe forward at a slight downward angle.

+

The probe's x,y position starts at 0,0. Then, it will follow some trajectory by moving in steps. On each step, these changes occur in the following order:

+
    +
  • The probe's x position increases by its x velocity.
    • +
  • The probe's y position increases by its y velocity.
    • +
  • Due to drag, the probe's x velocity changes by 1 toward the value 0; that is, it decreases by 1 if it is greater than 0, increases by 1 if it is less than 0, or does not change if it is already 0.
    • +
  • Due to gravity, the probe's y velocity decreases by 1.
    • +
+

For the probe to successfully make it into the trench, the probe must be on some trajectory that causes it to be within a target area after any step. The submarine computer has already calculated this target area (your puzzle input). For example:

+
target area: x=20..30, y=-10..-5
+

This target area means that you need to find initial x,y velocity values such that after any step, the probe's x position is at least 20 and at most 30, and the probe's y position is at least -10 and at most -5.

+

Given this target area, one initial velocity that causes the probe to be within the target area after any step is 7,2:

+
.............#....#............
+.......#..............#........
+...............................
+S........................#.....
+...............................
+...............................
+...........................#...
+...............................
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................TTTTTTTT#TT
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+
+

In this diagram, S is the probe's initial position, 0,0. The x coordinate increases to the right, and the y coordinate increases upward. In the bottom right, positions that are within the target area are shown as T. After each step (until the target area is reached), the position of the probe is marked with #. (The bottom-right # is both a position the probe reaches and a position in the target area.)

+

Another initial velocity that causes the probe to be within the target area after any step is 6,3:

+
...............#..#............
+...........#........#..........
+...............................
+......#..............#.........
+...............................
+...............................
+S....................#.........
+...............................
+...............................
+...............................
+.....................#.........
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................T#TTTTTTTTT
+....................TTTTTTTTTTT
+
+

Another one is 9,0:

+
S........#.....................
+.................#.............
+...............................
+........................#......
+...............................
+....................TTTTTTTTTTT
+....................TTTTTTTTTT#
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+....................TTTTTTTTTTT
+
+

One initial velocity that doesn't cause the probe to be within the target area after any step is 17,-4:

+
S..............................................................
+...............................................................
+...............................................................
+...............................................................
+.................#.............................................
+....................TTTTTTTTTTT................................
+....................TTTTTTTTTTT................................
+....................TTTTTTTTTTT................................
+....................TTTTTTTTTTT................................
+....................TTTTTTTTTTT..#.............................
+....................TTTTTTTTTTT................................
+...............................................................
+...............................................................
+...............................................................
+...............................................................
+................................................#..............
+...............................................................
+...............................................................
+...............................................................
+...............................................................
+...............................................................
+...............................................................
+..............................................................#
+
+

The probe appears to pass through the target area, but is never within it after any step. Instead, it continues down and to the right - only the first few steps are shown.

+

If you're going to fire a highly scientific probe out of a super cool probe launcher, you might as well do it with style. How high can you make the probe go while still reaching the target area?

+

In the above example, using an initial velocity of 6,9 is the best you can do, causing the probe to reach a maximum y position of 45. (Any higher initial y velocity causes the probe to overshoot the target area entirely.)

+

Find the initial velocity that causes the probe to reach the highest y position and still eventually be within the target area after any step. What is the highest y position it reaches on this trajectory?

+
+

Your puzzle answer was 5995.

--- Part Two ---

Maybe a fancy trick shot isn't the best idea; after all, you only have one probe, so you had better not miss.

+

To get the best idea of what your options are for launching the probe, you need to find every initial velocity that causes the probe to eventually be within the target area after any step.

+

In the above example, there are 112 different initial velocity values that meet these criteria:

+
23,-10  25,-9   27,-5   29,-6   22,-6   21,-7   9,0     27,-7   24,-5
+25,-7   26,-6   25,-5   6,8     11,-2   20,-5   29,-10  6,3     28,-7
+8,0     30,-6   29,-8   20,-10  6,7     6,4     6,1     14,-4   21,-6
+26,-10  7,-1    7,7     8,-1    21,-9   6,2     20,-7   30,-10  14,-3
+20,-8   13,-2   7,3     28,-8   29,-9   15,-3   22,-5   26,-8   25,-8
+25,-6   15,-4   9,-2    15,-2   12,-2   28,-9   12,-3   24,-6   23,-7
+25,-10  7,8     11,-3   26,-7   7,1     23,-9   6,0     22,-10  27,-6
+8,1     22,-8   13,-4   7,6     28,-6   11,-4   12,-4   26,-9   7,4
+24,-10  23,-8   30,-8   7,0     9,-1    10,-1   26,-5   22,-9   6,5
+7,5     23,-6   28,-10  10,-2   11,-1   20,-9   14,-2   29,-7   13,-3
+23,-5   24,-8   27,-9   30,-7   28,-5   21,-10  7,9     6,6     21,-5
+27,-10  7,2     30,-9   21,-8   22,-7   24,-9   20,-6   6,9     29,-5
+8,-2    27,-8   30,-5   24,-7
+
+

How many distinct initial velocity values cause the probe to be within the target area after any step?

+
+

Your puzzle answer was 3202.

Both parts of this puzzle are complete! They provide two gold stars: **

+

At this point, you should return to your Advent calendar and try another puzzle.

+

If you still want to see it, you can get your puzzle input.

+

You can also this puzzle.

+
+ + + + + + \ No newline at end of file