Solving Advent of Code 2020-05 with R.
[Disclaimer] Obviously, this post contains a big spoiler about Advent of Code.
Instructions
Find the complete instructions at:https://adventofcode.com/2020/day/5.
R solution
Part one
library(magrittr)
# Read the data
ipt <- read.table("2020-05-aoc.txt", header = FALSE, stringsAsFactors = FALSE)
library(magrittr)
# For chunk2
library(stackoverflow)
library(purrr, warn.conflicts = FALSE)
get_chunks <- function(vec, ext, nms){
# split the vec in two, set the name, and extract the correct chunk
chunk2(vec, 2) %>%
setNames(nms) %>%
pluck(ext)
}
# Prefilling the functions with the correct nms
get_bf<- partial(get_chunks, nms = c("F", "B"))
get_lr <- partial(get_chunks, nms = c("L", "R"))
get_all <- function(entry){
entry <- strsplit(entry, "")[[1]]
# Doing the get_bf on the 7 first letters
row <- get_bf(0:127, entry[1]) %>%
get_bf(entry[2]) %>%
get_bf(entry[3]) %>%
get_bf(entry[4]) %>%
get_bf(entry[5]) %>%
get_bf(entry[6]) %>%
get_bf(entry[7])
# Doing the get_lr on the 3 last letters
column <- get_lr(0:7, entry[8]) %>%
get_lr(entry[9]) %>%
get_lr(entry[10])
# Computing the seat id
seatid <- (row * 8) + column
return(seatid)
}
# Getting the max
map_dbl(ipt$V1, get_all) %>%
max()
## [1] 864
Part two
library(dplyr, warn.conflicts = FALSE)
# Extracting all the ids
map_dbl(ipt$V1, get_all) %>%
# Sorting them in order and turning into a df
sort() %>%
data.frame(
x = .
) %>%
# Computing the diff between all ids
mutate(
y = lag(x),
diff = x - y
) %>%
# My passport ID will be the one between the IDS
# of diff != 1
filter(
diff != 1
)
## x y diff
## 1 740 738 2
Top comments (0)