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) }
You can clone a snippet to your computer for local editing. Learn more.