Список проголосовавших за комментарий "За минувшее лето разобрана программа единомышленника <br/> и создана улучшенная QB64 Qbasic рекурсивная <br/> Русская сортировка половинами Russian Sorting Halves <br/> <br/> показывающая результаты: <br/> там где пузырьковая сортирует 100'ооо за 230 секунд <br/> там где пузырьковая половинами 100'ооо за 70 секунд <br/> <br/> там Рекурсия Русская сортировка половинами за 0,33 секунды<br/> и миллион сортирует за 2,2 секунды именно в QB64 Qbasic <br/> повторяю: 1'000'ooo сортирует за 2,2 секунды в QB64 Qbasic <br/> <br/> и приветствую версии на других языках программирования <br/> особенно где возможна визуализация и сравнение сортировок <br/> <br/> RussianSortingHalvesDAV: Excel рекурсия таблица AlgoLab<br/> только изменённая мной часть RussianSortingHalvesDAV<br/> исправлен ляп лишних вычислений среднего и без лишних переменных<br/> и без замедляющего оформления: сортирует максимум 250 ячеек за 10 секунд<br/> быстрее в 12 раз чем также ускоренная обычная сортировка<br/> <br/> 4-кратное ускорение<br/> a 4 times acceleration proof<br/> <br/> 'RUSSIAN sorting halves 4 part bubble<br/> N = 17539<br/> DIM d(N), a(N), v(N), q(5)<br/> RANDOMIZE TIMER: FOR i = 1 TO N: d(i) = INT(RND * N): NEXT<br/> FOR k = 1 TO 10: PRINT d(k);: NEXT: PRINT: FOR k = N — 9 TO N: PRINT d(k);: NEXT: PRINT: PRINT<br/> <br/> start = TIMER: s = 0<br/> <br/> ' ALL<br/> summa = 0: FOR i = 1 TO N: summa = summa + d(i): NEXT: middle = summa / N: y = 1: z = 0<br/> FOR i = 1 TO N<br/> IF d(i) < middle THEN a(y) = d(i): y = y + 1: ELSE a(N — z) = d(i): z = z + 1<br/> NEXT<br/> q(3) = y — 1<br/> PRINT «ALL middle = »; middle<br/> FOR k = 1 TO 10: PRINT a(k);: NEXT: PRINT: FOR k = N — 9 TO N: PRINT a(k);: NEXT: PRINT: PRINT<br/> <br/> '1 FROM 2<br/> summa = 0: FOR i = 1 TO q(3): summa = summa + a(i): NEXT: middle = summa / q(3): y = 1: z = 0<br/> PRINT «1 FROM 2 = »; middle, «1 ...»; q(3)<br/> FOR i = 1 TO q(3)<br/> IF a(i) < middle THEN v(y) = a(i): y = y + 1: ELSE v(q(3) — z) = a(i): z = z + 1<br/> NEXT<br/> FOR k = 1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k = q(3) — 9 TO q(3): PRINT v(k);: NEXT: PRINT: PRINT<br/> q(2) = y — 1<br/> <br/> '2 FROM 2<br/> summa = 0: FOR i = q(3) + 1 TO N: summa = summa + a(i): NEXT: middle = summa / (1 + N — q(3)): y = q(3): z = 0<br/> PRINT «2 FROM 2 = »; middle, q(3) + 1; "..."; N<br/> FOR i = q(3) TO N<br/> IF a(i) < middle THEN v(y) = a(i): y = y + 1: ELSE v(N — z) = a(i): z = z + 1<br/> NEXT<br/> FOR k = q(3) TO q(3) + 10: PRINT v(k);: NEXT: PRINT: FOR k = N — 9 TO N: PRINT v(k);: NEXT: PRINT: PRINT<br/> q(4) = y — 1: q(1) = 2: q(5) = N<br/> <br/> ' SORTING<br/> PRINT «1=»; 1, «2=»; q(2), «3=»; q(3), «4=»; q(4), «5=»; N: PRINT<br/> FOR t = 1 TO 4<br/> FOR i = q(t) — 1 TO q(t + 1): FOR j = i + 1 TO q(t + 1)<br/> IF v(i) > v(j) THEN SWAP v(i), v(j): s = s + 1<br/> NEXT: NEXT: NEXT<br/> <br/> finish = TIMER<br/> <br/> FOR k = 1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k = N — 9 TO N: PRINT v(k);: NEXT: PRINT: PRINT<br/> PRINT «DA RUS 4 », finish — start; «second », «swap »; s<br/> <br/> OPEN «c:/RUsortdav4.txt» FOR OUTPUT AS #2<br/> PRINT #2, finish — start; «second », «swap »; s<br/> PRINT #2, N; «Russian sorting halves 4 parts bubble „<br/> FOR i = 1 TO 20: PRINT #2, v(i): NEXT<br/> FOR i = N — 19 TO N: PRINT #2, v(i): NEXT<br/> <br/> start = TIMER: s = 0<br/> FOR i = 1 TO N: FOR j = i + 1 TO N<br/> IF d(i) > d(j) THEN SWAP d(i), d(j): s = s + 1<br/> NEXT: NEXT<br/> finish = TIMER<br/> <br/> PRINT “BUBBLE », finish