Sha256: 63e2591b2fe2c408f76f2262647f5dfd5410c879a05a3a92e4b1a290caa3a4a8
Contents?: true
Size: 376 Bytes
Versions: 26
Compression:
Stored size: 376 Bytes
Contents
is_perfect <- function(n){
find_factors <- 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(find_factors(n)) + 1 == n
}
Version data entries
26 entries across 26 versions & 1 rubygems