diff options
-rw-r--r-- | test.r | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -0,0 +1,22 @@ +# 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) |