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-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Magic-constant/R/magic-constant.r Normal file
View file

@ -0,0 +1,13 @@
#This is equivalent to n*(n^2+1)/2, but it's easier to see where this form comes from
magic <- function(n) sum(1:(n^2))/n
sapply(3:22, magic)
magic(1003)
inv_magic <- function(lower){
n <- 3
while(magic(n)<=lower) n <- n+1
return(n)
}
sapply(cumprod(rep(10, 20)), inv_magic)