Alistair Beith
@abeith.bsky.social
Research Fellow in Hearing Sciences at University of Nottingham | Speech | Communication | #Rstats
December 23, 2024 at 11:34 AM
Day 22 #AdventOfCode #rstats
I feel like I could have lived without knowing that raw vectors in R are little-endian.
I feel like I could have lived without knowing that raw vectors in R are little-endian.
December 22, 2024 at 5:32 PM
Day 22 #AdventOfCode #rstats
I feel like I could have lived without knowing that raw vectors in R are little-endian.
I feel like I could have lived without knowing that raw vectors in R are little-endian.
December 20, 2024 at 6:22 PM
December 20, 2024 at 6:22 PM
Day 15 #AdventOfCode #rstats
Too many lines of code for this one so I'm just sharing a video instead.
Too many lines of code for this one so I'm just sharing a video instead.
December 20, 2024 at 6:22 PM
Day 15 #AdventOfCode #rstats
Too many lines of code for this one so I'm just sharing a video instead.
Too many lines of code for this one so I'm just sharing a video instead.
December 14, 2024 at 10:27 AM
Day 13 #AdventOfCode #rstats
I resisted the urge to use complex numbers for the coordinates in part 1 only to find out that was the solution to part 2!
I resisted the urge to use complex numbers for the coordinates in part 1 only to find out that was the solution to part 2!
December 13, 2024 at 10:09 PM
Day 13 #AdventOfCode #rstats
I resisted the urge to use complex numbers for the coordinates in part 1 only to find out that was the solution to part 2!
I resisted the urge to use complex numbers for the coordinates in part 1 only to find out that was the solution to part 2!
Day 12 #AdventOfCode #rstats
There was a beautiful base R solution that worked with the sample input, but I gave up and used a package.
There was a beautiful base R solution that worked with the sample input, but I gave up and used a package.
December 13, 2024 at 10:09 PM
Day 12 #AdventOfCode #rstats
There was a beautiful base R solution that worked with the sample input, but I gave up and used a package.
There was a beautiful base R solution that worked with the sample input, but I gave up and used a package.
Day 11 #AdventOfCode #rstats
I shouldn't admit to this one. How long is a blink? Because the last blink in my loop was almost 14 seconds.
I shouldn't admit to this one. How long is a blink? Because the last blink in my loop was almost 14 seconds.
December 11, 2024 at 7:18 PM
Day 11 #AdventOfCode #rstats
I shouldn't admit to this one. How long is a blink? Because the last blink in my loop was almost 14 seconds.
I shouldn't admit to this one. How long is a blink? Because the last blink in my loop was almost 14 seconds.
December 10, 2024 at 10:36 AM
Day 9 (Part 2) #AdventOfCode #rstats
December 9, 2024 at 6:26 PM
Day 9 (Part 2) #AdventOfCode #rstats
Day 9 (Part 1) #AdventOfCode #rstats
In spite of the evidence I'm still convinced this is a run-length encoding problem!
In spite of the evidence I'm still convinced this is a run-length encoding problem!
December 9, 2024 at 6:26 PM
Day 9 (Part 1) #AdventOfCode #rstats
In spite of the evidence I'm still convinced this is a run-length encoding problem!
In spite of the evidence I'm still convinced this is a run-length encoding problem!
![## setup
input <- readLines('../data/aoc8.txt') |>
sapply(strsplit, split = '') |>
do.call(what = rbind)
rownames(input) <- NULL
antenna_symbols <- input[input != '.'] |> unique()
## part 1
get_nodes <- function(antenna_symbol){
antenna_positions <- which(input == antenna_symbol, arr.ind = TRUE) |>
apply(1, \(x) complex(real = x['col'], imaginary = x['row']))
antenna_pairs <- gtools::permutations(length(antenna_positions), 2, antenna_positions)
nodes <- apply(antenna_pairs, 1, diff) + antenna_pairs[,2]
return(nodes)
}
check_node <- function(node){
if(Im(node) < 1 | Im(node) > nrow(input)) return(FALSE)
if(Re(node) < 1 | Re(node) > ncol(input)) return(FALSE)
return(TRUE)
}
nodes <- sapply(antenna_symbols, get_nodes) |> unlist()
nodes <- nodes[sapply(nodes, check_node)]
## part 1 answer
nodes |> unique() |> length()
## part 2
get_harmonics <- function(origin, wavelength){
nodes <- c(origin)
for(i in seq_len(prod(dim(input)))){
node <- origin + (wavelength * i)
if(!check_node(node)) return(nodes)
nodes <- c(nodes, node)
}
stop("This can never happen")
}
get_node_harmonics <- function(antenna_symbol) {
antenna_positions <- which(input == antenna_symbol, arr.ind = TRUE) |>
apply(1, \(x) complex(real = x['col'], imaginary = x['row']))
antenna_pairs <- gtools::permutations(length(antenna_positions), 2, antenna_positions)
wavelengths <- apply(antenna_pairs, 1, diff)
origins <- antenna_pairs[,2]
nodes <- purrr::map2(origins, wavelengths, get_harmonics) |>
unlist()
return(nodes)
}
harmonics <- sapply(antenna_symbols, get_node_harmonics) |>
unlist() |>
unique()
## part 2 answer
harmonics |> length()](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:ogcb3r2preent3qs6w2xz3i3/bafkreidzcsu43qrabq32pxtx6ooaeycw5qx4uazgkdkoftakhdv2o3ceqy@jpeg)
December 8, 2024 at 12:13 PM
Day 7 #AdventOfCode #rstats
Yes, the `%||%` operator is a relic of a failed eval(parse(text = x)) approach.
Yes, the `%||%` operator is a relic of a failed eval(parse(text = x)) approach.
December 8, 2024 at 12:03 PM
Day 7 #AdventOfCode #rstats
Yes, the `%||%` operator is a relic of a failed eval(parse(text = x)) approach.
Yes, the `%||%` operator is a relic of a failed eval(parse(text = x)) approach.
Day 6 #AdventOfCode #rstats
Resorted to brute force and patience for part 2 in the end. Probably only a couple of conditionals away from being a not terrible solution!
Resorted to brute force and patience for part 2 in the end. Probably only a couple of conditionals away from being a not terrible solution!
December 8, 2024 at 11:55 AM
Day 6 #AdventOfCode #rstats
Resorted to brute force and patience for part 2 in the end. Probably only a couple of conditionals away from being a not terrible solution!
Resorted to brute force and patience for part 2 in the end. Probably only a couple of conditionals away from being a not terrible solution!
December 5, 2024 at 12:25 PM
December 3, 2024 at 10:49 AM
At this point the Twin Peaks fans are saying "Wow, Bob, wow", and they're right! We could break these limits by changing the direction of speech as long as we're retiming a phonological palindrome. Unfortunately, it turns out the direction of the phones is also important.
November 22, 2024 at 12:48 PM
At this point the Twin Peaks fans are saying "Wow, Bob, wow", and they're right! We could break these limits by changing the direction of speech as long as we're retiming a phonological palindrome. Unfortunately, it turns out the direction of the phones is also important.