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 
} 

問候。

Answer 2

其泡的功能使用排序R.享受
void bubble(int x[], int n) { int j, pass; int switched = TRUE; for(pass = 0; pass < n - 1 && switched == TRUE; pass++) { switched = FALSE; for(j = 0; j < n - pass - 1; j++) { if(x[j] < x[j+1]) { switched = TRUE; Swap(x[j], x[j+1]); } } } }