Advent of Code 2022 - Day 1

advent-of-code-2022--day01.R

library(tidyverse)

inventory <- read_csv(
  "day01.txt", col_names = "calories", skip_empty_rows = FALSE
)

calories_by_elf <- 
  inventory |>
  mutate(elf = cumsum(is.na(calories))) |>
  drop_na() |>
  summarize(total_calories = sum(calories), .by = elf)

part1 <- calories_by_elf |> pull(total_calories) |> max()
part2 <- 
  calories_by_elf |>
  arrange(desc(total_calories)) |>
  pull(total_calories) |>
  head(3) |>
  sum()