AK
Мы очень редко задымуваемся над тем, для чего в конечном итоге работаем. И если вдруг окажется, что работаем на сильных мира сего - мы все под угрозой "увольнения" не только локального, но и на уровне генотипа
Size: a a a
AK
AL
AK
AK
I
AL
AL
AL
AK
AL
AK
AK
qsort = function(a) {
qsort_kernel = function(lo, hi) {
i = lo
j = hi
while (i < hi) {
pivot = a[floor((lo+hi)/2)]
while (i <= j) {
while (a[i] < pivot) i = i + 1
while (a[j] > pivot) j = j - 1
if (i <= j) {
t = a[i]
a[i] <<- a[j]
a[j] <<- t
i = i + 1;
j = j - 1;
}
}
if (lo < j) qsort_kernel(lo, j)
lo = i
j = hi
}
}
qsort_kernel(1, length(a))
return(a)
}AK
I
I
AK
AL