Yorgos

@gd047.bsky.social

51 Followers 290 Following

Am Heimcomputer sitze ich hier und programmieR die Zukunft mir.

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