Add Bogo sort in R (algorithm-archivists#536)

* add Bogo sort in R * added newline at the end
tiredonwatch · Oct 30, 2018 · 2fa064d · 2fa064d
1 parent 4f8728f
commit 2fa064d
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/contents/bogo_sort/bogo_sort.md b/contents/bogo_sort/bogo_sort.md
@@ -63,6 +63,8 @@ In code, it looks something like this:
 [import:20-24, lang:"lisp"](code/clisp/bogo-sort.lisp)
 {% sample lang="crystal" %}
 [import:10-14, lang:"crystal"](code/crystal/bogo.cr)
+{% sample lang="r" %}
+[import:1-6, lang:"r"](code/r/bogo_sort.r)
 {% endmethod %}
 
 That's it.
@@ -125,6 +127,8 @@ We are done here!
 [import, lang:"lisp"](code/clisp/bogo-sort.lisp)
 {% sample lang="crystal" %}
 [import, lang:"crystal"](code/crystal/bogo.cr)
+{% sample lang="r" %}
+[import, lang:"r"](code/r/bogo_sort.r)
 {% endmethod %}
 
 

diff --git a/contents/bogo_sort/code/r/bogo_sort.r b/contents/bogo_sort/code/r/bogo_sort.r
@@ -0,0 +1,15 @@
+bogo_sort <- function(a) {
+  while(is.unsorted(a)) {
+    a <- sample(a)
+  }
+  return(a)
+}
+
+test <- c(20, -3, 50, 1, -6, 59)
+
+print("unsorted list")
+print(test)
+
+print("sorted list")
+print(bogo_sort(test))
+