Sha256: 1e712fbee329eee392be1f390ddb86a063d2b3f757a3e542fa941d04aff308f2
Contents?: true
Size: 373 Bytes
Versions: 40
Compression:
Stored size: 373 Bytes
Contents
isPerfect <- function(n){
findFactors <- function(n) {
factors <- c()
for (i in 2:floor(n^0.5 + 1)) {
if (n %% i == 0) {
if (i^2 != n) {
factors <- c(factors, i, n / i)
}
else {
factors <- c(factors, i)
}
}
}
unique(factors)
}
sum(findFactors(n)) + 1 == n
}
Version data entries
40 entries across 40 versions & 1 rubygems