Add test.r

1 files changed, 22 insertions, 0 deletions

diff --git a/test.r b/test.r
new file mode 100644
index 0000000..6ab5ff9
--- /dev/null
+++ b/test.r
@@ -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)