From 2b3ccd89a593bb1252d5bc554e5d960c88d4a093 Mon Sep 17 00:00:00 2001
From: PaddyKe <34421580+PaddyKe@users.noreply.github.com>
Date: Fri, 26 Oct 2018 00:29:01 +0200
Subject: [PATCH 1/2] add Bogo sort in R

---
 contents/bogo_sort/bogo_sort.md       |  4 ++++
 contents/bogo_sort/code/r/bogo_sort.r | 14 ++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100755 contents/bogo_sort/code/r/bogo_sort.r

diff --git a/contents/bogo_sort/bogo_sort.md b/contents/bogo_sort/bogo_sort.md
index 4c66adbc4..06f0aff78 100644
--- 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
new file mode 100755
index 000000000..1f5c2ebc2
--- /dev/null
+++ b/contents/bogo_sort/code/r/bogo_sort.r
@@ -0,0 +1,14 @@
+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))
\ No newline at end of file

From b6e32575211d5ad15e1e39ea78c3b3a1ae88618c Mon Sep 17 00:00:00 2001
From: PaddyKe <34421580+PaddyKe@users.noreply.github.com>
Date: Fri, 26 Oct 2018 00:37:16 +0200
Subject: [PATCH 2/2] added newline at the end

---
 contents/bogo_sort/code/r/bogo_sort.r | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/contents/bogo_sort/code/r/bogo_sort.r b/contents/bogo_sort/code/r/bogo_sort.r
index 1f5c2ebc2..0d354de27 100755
--- a/contents/bogo_sort/code/r/bogo_sort.r
+++ b/contents/bogo_sort/code/r/bogo_sort.r
@@ -11,4 +11,5 @@ print("unsorted list")
 print(test)
 
 print("sorted list")
-print(bogo_sort(test))
\ No newline at end of file
+print(bogo_sort(test))
+