Jasper Spitzer
@jspitzer.bsky.social
PostDoc at Universität Bonn; interested in Computational Biology, single cell transcriptomics and aortic disease.
I just completed "Red-Nosed Reports" - Day 2 - Advent of Code 2024 #AdventOfCode adventofcode.com/2024/day/2
![solution of advent of code day 2:
is.safe <- function(VEC){
vec_inc <- sort(VEC)
vec_dec <- sort(VEC, decreasing = T)
ordered = identical(VEC, vec_inc) | identical(VEC, vec_dec)
offset <- lag(VEC)[-1]
diffs <- VEC[-1] - offset
fine <- all(diffs != 0 & abs(diffs) < 4)
safe <- ordered & fine
return(safe)
}
is.safe.damp <- function(VEC){
pure <- is.safe(VEC)
if(pure){
return(pure)
}
dampened <- logical(length = length(VEC))
for (index in 1:length(VEC)) {
dampened[index] = is.safe(VEC[-index])
if(dampened[index]){
return(dampened[index])
}
}
return(F)
}
map(input_clean, is.safe) %>% unlist() %>% sum()
map(input_clean, is.safe.damp) %>% unlist() %>% sum()](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:2rivci5t6etaosgd53jygarn/bafkreia5hsjgbwqvus2h6covwf3npklmw36srwfcjmvxbqvevvl6kbjuv4@jpeg)
December 2, 2024 at 2:58 PM
I just completed "Red-Nosed Reports" - Day 2 - Advent of Code 2024 #AdventOfCode adventofcode.com/2024/day/2