R/NumberTheory.R

In RcppAlgos: High Performance Tools for Combinatorics and Computational Mathematics

primeFactorizeSieve <- function(bound1, bound2 = NULL,
                                namedList = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_MotleyContainer`, bound1, bound2, FALSE, namedList,
                 nThreads, pkgEnv$nThreads))
}

eulerPhiSieve <- function(bound1, bound2 = NULL,
                          namedVector = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_MotleyContainer`, bound1, bound2, TRUE, namedVector,
                 nThreads, pkgEnv$nThreads))
}

primeSieve <- function(bound1, bound2 = NULL, nThreads = NULL) {
    return(.Call(`_RcppAlgos_PrimeSieveCpp`, bound1, bound2, nThreads,
                 pkgEnv$nCores, pkgEnv$nThreads))
}

divisorsSieve <- function(bound1, bound2 = NULL,
                          namedList = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_DivNumSieveCpp`, bound1, bound2, TRUE, namedList,
                 nThreads, pkgEnv$nThreads))
}

numDivisorSieve <- function(bound1, bound2 = NULL,
                            namedVector = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_DivNumSieveCpp`, bound1, bound2, FALSE, namedVector,
                 nThreads, pkgEnv$nThreads))
}

primeFactorize <- function(v, namedList = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_PollardRhoContainer`, v, namedList, TRUE,
                 FALSE, nThreads, pkgEnv$nThreads))
}

divisorsRcpp <- function(v, namedList = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_PollardRhoContainer`, v, namedList, FALSE,
                 TRUE, nThreads, pkgEnv$nThreads))
}

isPrimeRcpp <- function(v, namedVector = FALSE, nThreads = NULL) {
    return(.Call(`_RcppAlgos_PollardRhoContainer`, v, namedVector, FALSE,
                 FALSE, nThreads, pkgEnv$nThreads))
}

primeCount <- function(n, nThreads = NULL) {
    return(.Call(`_RcppAlgos_PrimeCountCpp`, n, nThreads, pkgEnv$nThreads))
}