R中的冒泡排序

Question

如何使用R执行冒泡排序以及我将使用哪些R功能和/或包？我已成功执行合并排序，但冒泡排序似乎无法正常工作。

Answer 1

您可以像使用其他排序一样编写它：

bubble_sort = function(array) {
    count = 0
    while(1) {
        count_swaps = 0
        for (j in 1 : (length(array) - 1 - count)) {
            if (array[j] > array[j + 1]) {
                s = array[j]
                array[j] = array[j+1]
                array[j+1] = s
                count_swaps = count_swaps + 1
            }
        }
        count = count + 1
        if(count_swaps == 0) break
    }
    array
}

问候。