(This article was first published on YGC » R, and kindly contributed to R-bloggers)
We shall say that an n-digit number is pandigital if it makes use of all the digits 1 to n exactly once. For example, 2143 is a 4-digit pandigital and is also prime. What is the largest n-digit pandigital prime that exists?
using gmp and permute package, this problem is very straightforward, and easy to solve.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
require(gmp) require(permute) maxP <- 0 vec2num <- function(vec) { m <- length(vec) n <- sum(10^(m:1-1) * vec) return(n) } for (j in 9:4) { p <- allPerms(j, max=prod(1:j)*j) pn <- sapply(1:nrow(p), function(i) vec2num(p[i,])) idx <- isprime(pn) !=0 if ( any(idx) ) { maxP <- max(pn[idx]) } if (maxP != 0) { cat("The larget n-digit pandigital prime is ", maxP, "\n") break } } |
> system.time(source("problem41.R")) The larget n-digit pandigital prime is 7652413 user system elapsed 20.95 0.03 20.99
Related Posts
To leave a comment for the author, please follow the link and comment on their blog: YGC » R.
R-bloggers.com offers daily e-mail updates about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...