Day 1: Report Repair

Reference

Part One

library(tidyverse)

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

for (i in 1:(length(input)-1)) {
    for (j in (i+1):length(input)) {
        if (input[i] + input[j] == 2020) cat(input[i] * input[j])
    }
}
## 956091

Part Two

for (i in 1:(length(input)-2)) {
    for (j in (i+1):length(input)-1) {
        for (k in (j+1):length(input)) {
        if (input[i] + input[j] + input[k] == 2020)
            cat(input[i] * input[j] * input[k])
        }
    }
}
## 79734368