Kara Woo
@karawoo.com
software engineer | #rstats | PDX | she/her
not hard at all with a pelmenitsa
January 4, 2026 at 4:19 AM
not hard at all with a pelmenitsa
GARBAGE TRUCK! GARBAGE TRUCK!
December 25, 2025 at 6:56 PM
GARBAGE TRUCK! GARBAGE TRUCK!
current status: playing with a giant crane from his uncle while wearing a Jack Skellington costume that i predict he will live in for the next month
December 25, 2025 at 6:02 PM
current status: playing with a giant crane from his uncle while wearing a Jack Skellington costume that i predict he will live in for the next month
he’s getting the bike he fell in love with at the bike shop a few weeks ago and had to be carried away from
December 25, 2025 at 7:02 AM
he’s getting the bike he fell in love with at the bike shop a few weeks ago and had to be carried away from
Day 8 was very easy with igraph and #rstats built-in distance matrix function. #adventofcode
![Screenshot of the following code:
library("dplyr")
library("igraph")
dat <- read.table("input08.txt", sep = ",", col.names = c("x", "y", "z"))
dm <- as.matrix(dist(dat, method = "euclidean"))
xy <- t(combn(rownames(dat), 2))
dm_df <- data.frame(xy, dist = dm[xy]) |>
arrange(dist)
g <- make_empty_graph(n = nrow(dat), directed = FALSE)
## part 1
n <- 1000
for (i in seq_len(n)) {
g <- add_edges(g, c(dm_df[i, "X1"], dm_df[i, "X2"]))
}
prod(head(sort(components(g)$csize, decreasing = TRUE), 3))
## part 2
i <- n # continue where we left off on the loop above
while (!is_connected(g)) {
i <- i + 1
g <- add_edges(g, c(dm_df[i, "X1"], dm_df[i, "X2"]))
}
prod(dat[c(dm_df[i, "X1"], dm_df[i, "X2"]), "x"])](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:o4tcgqoslmipb3j62vjhrq73/bafkreihquvl2ftgcfheveeknpwrpndb7bndsmz4bimkynzfegl7fgurlgq@jpeg)
December 8, 2025 at 6:24 PM
Day 8 was very easy with igraph and #rstats built-in distance matrix function. #adventofcode
My day 7 solution started out way more complicated (and, for part 2, just wrong). Had to come back to it the next day to realize a much simpler way. #adventofcode #rstats
![Screenshot of the following code:
library("readr")
options(scipen = 9999)
file <- "input07.txt"
dat <- read_fwf(
file,
col_positions = fwf_widths(rep(1, nchar(readLines(file)[1])))
) |>
as.matrix()
count <- 0
tl <- vector(mode = "numeric", length = ncol(dat))
tl[which(dat == "S", arr.ind = TRUE)[, "col"]] <- 1
for (row in seq_len(nrow(dat))) {
for (col in seq_along(dat[row, ])) {
if (dat[row, col] == "^") {
if (tl[col] > 0) {
count <- count + 1
tl[col - 1] <- tl[col - 1] + tl[col]
tl[col + 1] <- tl[col + 1] + tl[col]
tl[col] <- 0
}
}
}
}
## part 1
count
## part 2
sum(tl)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:o4tcgqoslmipb3j62vjhrq73/bafkreicgkh56ikumyer4eupznzx73nfqewy6n5vunrg2q5mdddb36tq7we@jpeg)
December 8, 2025 at 6:22 PM
My day 7 solution started out way more complicated (and, for part 2, just wrong). Had to come back to it the next day to realize a much simpler way. #adventofcode #rstats
Day 6: the first #adventofcode puzzle I've done where the bulk of the puzzle was parsing the input data. I enjoyed this one a lot! #rstats
![Screenshot of the following code:
library("readr")
library("purrr")
library("dplyr")
options(scipen = 9999)
file <- "input06.txt"
orig <- readLines(file)
ncol <- length(strsplit(orig[[1]], "\\s+")[[1]])
## part 1
dat1 <- read_fwf(file, n_max = length(orig) - 1) |>
mutate(across(everything(), as.numeric))
ops <- tail(orig, 1) |>
strsplit("\\s+")
ops <- ops[[1]]
math <- function(x, op) {
init <- ifelse(op == "*", 1, 0)
Reduce(function(x, y) do.call(op, as.list(c(x, y))), x = x, init = init)
}
sum(mapply(math, dat1, ops))
## part 2
# read the data in one character per column
dat2 <- read_fwf(file, col_positions = fwf_widths(rep(1, max(nchar(orig)))))
dat2 <- dat2[-nrow(dat2), ]
# split into groups based on where there's a column of all NAs
seps <- map_dbl(dat2, ~ all(is.na(.x)))
splits <- cumsum(c(1, diff(seps) != 0))
split_problems <- split.default(dat2, splits) |>
keep(~ !all(is.na(.x)))
ceph_math <- function(x, op) {
vals <- as.list(x) |>
map(~ paste0(na.omit(.x), collapse = "")) |>
map_dbl(as.numeric)
math(vals, op)
}
sum(mapply(ceph_math, split_problems, ops))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:o4tcgqoslmipb3j62vjhrq73/bafkreie3tl2styhiwyx6mxaseod37ttmugl7dt2zsqgtkbmsg5fffj3gle@jpeg)
December 8, 2025 at 6:20 PM
Day 6: the first #adventofcode puzzle I've done where the bulk of the puzzle was parsing the input data. I enjoyed this one a lot! #rstats
Ironic that this screenshot also has a bug. Fixed version: github.com/karawoo/adve...
adventofcode/2025/day04.R at main · karawoo/adventofcode
Advent of Code solutions. Contribute to karawoo/adventofcode development by creating an account on GitHub.
github.com
December 5, 2025 at 7:27 PM
Ironic that this screenshot also has a bug. Fixed version: github.com/karawoo/adve...