defmodule Day12 do
  @example """
  F10
  N3
  F7
  R90
  F11
  """

  def part1(example \\ false) do
    {x, y, _} =
      example
      |> parse_input()
      |> follow_move_instructions({0, 0, 90})

    manhattan_dist({x, y})
  end

  def part2(example \\ false) do
    example
    |> parse_input()
    |> follow_waypoint_instructions({0, 0}, {10, 1})
    |> manhattan_dist()
  end

  def parse_input(example) do
    if(example, do: @example, else: File.read!("lib/day12/input.txt"))
    |> String.trim()
    |> String.split()
    |> Enum.map(fn <<insn::binary-size(1), rest::binary>> ->
      {insn, String.to_integer(rest)}
    end)
  end

  def follow_move_instructions([], state) do
    state
  end

  def follow_move_instructions([insn | rest], state) do
    follow_move_instructions(rest, move(state, insn))
  end

  def move({x, y, dir}, {"L", val}) do
    new_dir = rem(dir - val, 360)
    new_dir = if new_dir < 0, do: new_dir + 360, else: new_dir
    {x, y, new_dir}
  end

  def move({x, y, dir}, {"R", val}) do
    {x, y, rem(dir + val, 360)}
  end

  def move({_, _, dir} = state, {"F", val}) do
    index = if rem(dir, 180) == 0, do: 1, else: 0
    sign = if dir == 180 || dir == 270, do: -1, else: 1
    put_elem(state, index, elem(state, index) + sign * val)
  end

  def move({x, y, dir}, {"N", val}) do
    {x, y + val, dir}
  end

  def move({x, y, dir}, {"S", val}) do
    {x, y - val, dir}
  end

  def move({x, y, dir}, {"E", val}) do
    {x + val, y, dir}
  end

  def move({x, y, dir}, {"W", val}) do
    {x - val, y, dir}
  end

  def manhattan_dist({x, y}) do
    abs(x) + abs(y)
  end

  def follow_waypoint_instructions([], ship, waypoint) do
    ship
  end

  def follow_waypoint_instructions([insn | rest], ship, waypoint) do
    {new_ship, new_waypoint} = do_waypoint_insn(insn, ship, waypoint)
    follow_waypoint_instructions(rest, new_ship, new_waypoint)
  end

  def do_waypoint_insn({"N", val}, ship, {dx, dy}) do
    {ship, {dx, dy + val}}
  end

  def do_waypoint_insn({"S", val}, ship, {dx, dy}) do
    {ship, {dx, dy - val}}
  end

  def do_waypoint_insn({"E", val}, ship, {dx, dy}) do
    {ship, {dx + val, dy}}
  end

  def do_waypoint_insn({"W", val}, ship, {dx, dy}) do
    {ship, {dx - val, dy}}
  end

  def do_waypoint_insn({"L", val}, ship, {dx, dy}) do
    new_waypoint =
      case val do
        90 ->
          {-dy, dx}

        180 ->
          {-dx, -dy}

        270 ->
          {dy, -dx}
      end

    {ship, new_waypoint}
  end

  def do_waypoint_insn({"R", val}, ship, waypoint) do
    do_waypoint_insn({"L", 360 - val}, ship, waypoint)
  end

  def do_waypoint_insn({"F", val}, {x, y}, {dx, dy} = waypoint) do
    {{x + val * dx, y + val * dy}, waypoint}
  end
end