Created
February 13, 2024 08:33
-
-
Save bjulius/b6c8adc5e5324a6dd728b3f38b4391ef to your computer and use it in GitHub Desktop.
Excel BI Challenge 390 - Brian Julius Hybrid Power Query/R Solution
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| data <- dataset$Digits | |
| find_n_digit_numbers_optimized <- function(n) { | |
| start <- 10^(n-1) | |
| end <- 10^n - 1 | |
| valid_numbers <- numeric(0) | |
| for (num in start:end) { | |
| digit_sum <- sum(as.numeric(unlist(strsplit(as.character(num), "")))) | |
| if (digit_sum == n) { | |
| valid_numbers <- c(valid_numbers, num) | |
| } | |
| } | |
| return(valid_numbers) | |
| } | |
| results_list <- lapply(unique(data), function(n) { | |
| valid_numbers <- find_n_digit_numbers_optimized(n) | |
| if (length(valid_numbers) > 0) { | |
| return(data.frame(digits = rep(n, length(valid_numbers)), number = valid_numbers)) | |
| } else { | |
| return(NULL) # Return NULL for cases where no numbers are found | |
| } | |
| }) | |
| results_list <- Filter(NROW, results_list) | |
| if (length(results_list) > 0) { | |
| results_df <- do.call(rbind, results_list) | |
| } else { | |
| results_df <- data.frame(digits = integer(), number = integer()) | |
| } | |
| results_df |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Original Problem Link
https://www.linkedin.com/feed/update/urn:li:activity:7163018969207980032?updateEntityUrn=urn%3Ali%3Afs_feedUpdate%3A%28V2%2Curn%3Ali%3Aactivity%3A7163018969207980032%29