aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Factorions/R/factorions.r
View file

@ -1,13 +1,12 @@
fact_digsum <- function(n, b){
if(n>b-1){
return(factorial(n%%b)+fact_digsum(n%/%b, b))
}
else return(factorial(n))
factorial(n%%b)+fact_digsum(n%/%b, b)
} else factorial(n)
}
for(i in 9:12){
cat("Factorions in base",i,"\n")
cat("\nFactorions in base ", i, ":\n", sep="")
for(j in 1:1499999){
if(j==fact_digsum(j, i)) print(j)
if(j==fact_digsum(j, i)) cat(j, "")
}
}