Jasper Spitzer

@jspitzer.bsky.social

PostDoc at Universität Bonn; interested in Computational Biology, single cell transcriptomics and aortic disease.

$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()$