Data commit

Task/Loops-Nested/R/loops-nested-1.r

@@ -0,0 +1,22 @@
+m <- 10
+n <- 10
+mat <- matrix(sample(1:20L, m*n, replace=TRUE), nrow=m); mat
+done <- FALSE
+for(i in seq_len(m))
+{
+   for(j in seq_len(n))
+   {
+      cat(mat[i,j])
+      if(mat[i,j] == 20)
+      {
+         done <- TRUE
+         break
+      }
+      cat(", ")
+   }
+   if(done)
+   {
+      cat("\n")
+      break
+   }
+}

Task/Loops-Nested/R/loops-nested-2.r

@@ -0,0 +1,5 @@
+m <- 10; n <- 10; mat <- matrix(sample(1:20L, m*n, replace=TRUE), nrow=m);
+x<-which(mat==20,arr.ind=TRUE,useNames=FALSE)
+x<-x[order(x[,1]),]
+for(i in mat[1:x[1,1]-1,]) print(i)
+for(i in mat[x[1,1],1:x[1,2]]) print(i)