🆕 Databot for Positron: an experimental AI agent that speeds up EDA for R & Python—writes code, you approve/run, then it interprets results and suggests next steps. Anthropic API key required. Install: open-vsx.org/extension/po...
#rstats #python #Positron
open-vsx.org
Open VSX Registry
![library(stringr)
# Recursive evaluator for a given target and numbers
evaluate_recursively <- function(test_value, numbers, index = 2, current_value = numbers[1]) {
# Base case: If we've processed all numbers, check if the result matches the target
if (index > length(numbers)) return(!is.na(current_value) && current_value == test_value)
# Explore "+" operation
if (evaluate_recursively(test_value, numbers, index + 1, current_value + numbers[index])) return(TRUE)
# Explore "*" operation
if (evaluate_recursively(test_value, numbers, index + 1, current_value * numbers[index])) return(TRUE)
# Explore "||" (concatenation) operation
new_value <- as.numeric(paste0(current_value, numbers[index]))
if (!is.na(new_value) && evaluate_recursively(test_value, numbers, index + 1, new_value)) return(TRUE)
# If none of the operations lead to the target, return FALSE
FALSE
}
# Process a single line
process_line <- function(line) {
# Split the line into target and numbers
parts <- strsplit(line, ": ")[[1]]
if (length(parts) != 2) return(0) # Skip malformed lines
target <- as.numeric(parts[1])
numbers <- as.numeric(strsplit(parts[2], "\\s+")[[1]])
# Evaluate the line using recursion
if (evaluate_recursively(target, numbers)) return(target)
0
}
# Main function to process all lines in the file
process_file_recursive <- function(file_path) {
lines <- readLines(file_path)
results <- sapply(lines, process_line)
sum(results)
}
input_file <- "input07.txt"
process_file_recursive(input_file)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:eiuupqdcwfhyxuiredahnlga/bafkreigkauk3xkoytha4xnioedtn4ocu4olxy66ekvmxbkk7t4x5vajjum)
![library(dplyr)
library(stringr)
evaluate_left_to_right <- function(numbers, symbols) {
result <- numbers[1]
for (i in seq_along(symbols)) {
if (symbols[i] == "+") {
result <- result + numbers[i + 1]
} else if (symbols[i] == "*") {
result <- result * numbers[i + 1]
}
}
result
}
process_file <- function(file_path) {
lines <- readLines(file_path)
# Pre-generate symbol combinations (assuming max ~10 numbers for practicality)
max_symbols <- max(str_count(lines, "\\s+") + 1) - 1
all_symbols <- expand.grid(rep(list(c("+", "*")), max_symbols))
all_symbols <- as.matrix(all_symbols)
results <- vector("numeric", length(lines))
for (i in seq_along(lines)) {
line <- lines[i]
parts <- strsplit(line, ": ")[[1]]
if (length(parts) != 2) {
results[i] <- 0
next
}
target <- as.numeric(parts[1])
numbers <- as.numeric(strsplit(parts[2], "\\s+")[[1]])
n <- length(numbers)
# Filter valid symbol combinations
valid_symbols <- all_symbols[1:(2^(n - 1)), 1:(n - 1)]
# Compute results for all expressions
expr_results <- apply(valid_symbols, 1, evaluate_left_to_right, numbers = numbers)
results[i] <- if (target %in% expr_results) target else 0
}
sum(results)
}
# Apply function to the input file
input_file <- "input07.txt"
process_file(input_file)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:eiuupqdcwfhyxuiredahnlga/bafkreiel7a7zn5penelnxa6wmve2wymcsgwu3wudmkvsm3k2emuiwmtqcm)
