print-Hello-World-/test.r

23 lines
280 B
R
Raw Normal View History

2020-09-15 15:55:32 +00:00
# R
gcd <- function(a, b) {
if (b > 0) return(gcd(b, a %% b))
else return(a)
}
cat("test\n")
N <- 1000
A <- list()
for (i in 0:N-1) {
A[i+1] <- i # R lists are 1-indexed!
}
ans <- 0
for (i in A) {
for (j in A) {
ans <- gcd(i, j) + ans
}
}
cat(ans)