Sha256: dcce7f072997db42d127638ddd6087f6b377a4fe4de66e5fb2c68db83c436867
Contents?: true
Size: 752 Bytes
Versions: 22
Compression:
Stored size: 752 Bytes
Contents
is_perfect <- function(n){
# catch invalid input
if (n <= 0)
stop("Classification is only possible for natural numbers.")
# catch edge cases
if (n %in% c(1, 2))
return("deficient")
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 <- sum(find_factors(n)) + 1
if (sum == n)
return("perfect")
else-if (sum > n)
return("abundant")
else-if (sum < n)
return("deficient")
# alternative to multiple if/else-if predicates: dplyr::case_when()
}
Version data entries
22 entries across 22 versions & 1 rubygems