Day 1: Sonar Sweep

Reference

Part One

library(tidyverse)

input <- read_lines(file = "inputs/2021/01.txt") |> as.integer()

cat(sum(diff(input) > 0))
## 1184

Part Two

library(slider)

new_input <- slide_sum(input, after = 2, complete = TRUE)
cat(sum(diff(new_input) > 0, na.rm = TRUE))
## 1158