Bubble sort in 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]); } } } }