Initial data commit

Task/Sorting-algorithms-Permutation-sort/R/sorting-algorithms-permutation-sort-1.r

@@ -0,0 +1,15 @@
+permutationsort <- function(x)
+{
+   if(!require(e1071) stop("the package e1071 is required")
+   is.sorted <- function(x) all(diff(x) >= 0)
+
+   perms <- permutations(length(x))
+   i <- 1
+   while(!is.sorted(x))
+   {
+      x <- x[perms[i,]]
+      i <- i + 1
+   }
+   x
+}
+permutationsort(c(1, 10, 9, 7, 3, 0))

Task/Sorting-algorithms-Permutation-sort/R/sorting-algorithms-permutation-sort-2.r

@@ -0,0 +1,10 @@
+library(RcppAlgos)
+permuSort <- function(list)
+{
+  iter <- permuteIter(list)
+  while(is.unsorted(iter$nextIter())){}#iter$nextIter advances iter to the next iteration and returns it.
+  iter$currIter()
+}
+test <- sample(10)
+print(test)
+permuSort(test)

Task/Sorting-algorithms-Permutation-sort/R/sorting-algorithms-permutation-sort-3.r

@@ -0,0 +1,4 @@
+repeat
+{
+  if(!is.unsorted(iter$nextIter())) break
+}