## Get the prime factorization of a single number
primeFactorizeBig(100)
## Or get the prime factorization of many numbers
set.seed(29)
myVec <- sample(-1000000:1000000, 1000)
system.time(myFacs <- primeFactorizeBig(myVec))
## Return named list
myFacsWithNames <- primeFactorizeBig(myVec, namedList = TRUE)
Run the code above in your browser using DataLab