2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Sorting-algorithms-Bogosort/R/sorting-algorithms-bogosort.r
+++ b/Task/Sorting-algorithms-Bogosort/R/sorting-algorithms-bogosort.r
@ -1,9 +1,7 @@
-bogosort <- function(x)
-{
-   is.sorted <- function(x) all(diff(x) >= 0)
-   while(!is.sorted(x)) x <- sample(x)
+bogosort <- function(x) {
+   while(is.unsorted(x)) x <- sample(x)
   x
 }

 n <- c(1, 10, 9, 7, 3, 0)
-print(bogosort(n))
+bogosort(n)