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-Cocktail-sort/R/sorting-algorithms-cocktail-sort.r
+++ b/Task/Sorting-algorithms-Cocktail-sort/R/sorting-algorithms-cocktail-sort.r
@ -0,0 +1,35 @@
+cocktailsort <- function(x)
+{
+   lenx <- length(x)
+   repeat
+   {
+      swapped <- FALSE
+      for(i in 1:(lenx-1))
+      {
+         if(x[i] > x[i+1])
+         {
+            temp <- x[i]
+            x[i] <- x[i+1]
+            x[i+1] <- temp
+            swapped <- TRUE
+         }
+      }
+      if(!swapped) break
+
+      swapped <- FALSE
+      for(i in (lenx-1):1)
+      {
+         if(x[i] > x[i+1])
+         {
+            temp <- x[i]
+            x[i] <- x[i+1]
+            x[i+1] <- temp
+            swapped <- TRUE
+         }
+      }
+      if(!swapped) break
+   }
+   x
+}
+
+print(cocktailsort(c(5, -1, 101, -4, 0, 1, 8,    6,  2, 3)))