Add Bogo sort in R (#536)

* add Bogo sort in R

* added newline at the end

Author: PaddyKe

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 %}
 
 

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))
+