2020-01: Report Repair

library(tidyverse)

df <- read.csv("Input.csv")
head(df)

  values
1   1768
2   1847
3   1905
4   1713
5   1826
6   1846

Part 1

key <- NA

for(x in 1:200) {
  for(y in 1:200) {
    if((df$values[x] + df$values[y]) == 2020) {
      print(paste(df$values[x], df$values[y]))
      key <- df$values[x] * df$values[y]
      print(key)
    }
    if(!is.na(key))
      break
  }
}

[1] "1825 195"
[1] 355875

Part 2

key <- NA

for(x in 1:200) {
  for(y in 1:200) {
    for(z in 1:200) {
      if((df$values[x] + df$values[y]) + df$values[z] == 2020) {
        print(paste(df$values[x], df$values[y], df$values[z]))
        key <- df$values[x] * df$values[y] * df$values[z]
        print(key)
      }
      if(!is.na(key))
        break
    }
  }
}

[1] "346 1380 294"
[1] 140379120