Snippets

Stuart Morrison Inefficient sorting

Created by Stuart Morrison
snippet.r
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
 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)
 
}

Comments (0)

HTTPS SSH

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