Snippets

Stuart Morrison Inefficient sorting

Created by Stuart Morrison
View revision

File snippet.r Added

  • Ignore whitespace
  • Hide word diff 
+ inefficient_sort <- function(x) {
+ 
+    if (length(x) == 1) {
+        return(x)
+    }
+ 
+    solve <- x
+    in_order <- all(solve[1:(length(x) - 1)] < solve[2:length(x)])
+ 
+    while (!in_order) {
+        solve <- x[sample(x = 1:length(x), size = length(x),
+                          replace = FALSE)]
+        in_order <- all(solve[1:(length(x) - 1)] < solve[2:length(x)])
+    }
+ 
+    return(solve)
+ 
+}
HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.