init

ue01/twosums/R/sum1.R

@@ -0,0 +1,12 @@
+sum1 <-
+function(m) {
+    res = 0
+    
+    for(i in 1:dim(m)[1]) {
+        for(j in 1:dim(m)[2]) {
+            res <- res + m[i,j]
+        }
+    }
+
+    return(res)
+}

ue01/twosums/R/sum2.R

@@ -0,0 +1,11 @@
+sum2 <-
+function(m) {
+    res = .C("sum2"
+             ,mtrx=as.double(m)
+             ,m=as.integer(dim(m)[1])
+             ,n=as.integer(dim(m)[2])
+             ,res=as.double(0)
+            )
+
+    return(res$res)
+}