all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bubble-sort/R/sorting-algorithms-bubble-sort.r
+++ b/Task/Sorting-algorithms-Bubble-sort/R/sorting-algorithms-bubble-sort.r
@ -0,0 +1,20 @@
+bubblesort <- function(v) {
+  itemCount <- length(v)
+  repeat {
+    hasChanged <- FALSE
+    itemCount <- itemCount - 1
+    for(i in 1:itemCount) {
+      if ( v[i] > v[i+1] ) {
+        t <- v[i]
+        v[i] <- v[i+1]
+        v[i+1] <- t
+        hasChanged <- TRUE
+      }
+    }
+    if ( !hasChanged ) break;
+  }
+  v
+}
+
+v <- c(9,8,7,3,1,100)
+print(bubblesort(v))