File Manager

X7ROOT File Manager

Current Path: /usr/share/awk

?? ..
?? assert.awk(383 B)
?? bits2str.awk(334 B)
?? cliff_rand.awk(307 B)
?? ctime.awk(234 B)
?? ftrans.awk(315 B)
?? getopt.awk(2.15 KB)
?? gettime.awk(2.43 KB)
?? group.awk(1.72 KB)
?? have_mpfr.awk(221 B)
?? inplace.awk(1.95 KB)
?? intdiv0.awk(462 B)
?? join.awk(378 B)
?? libintl.awk(238 B)
?? noassign.awk(422 B)
?? ord.awk(937 B)
?? passwd.awk(1.17 KB)
?? processarray.awk(355 B)
?? quicksort.awk(1.01 KB)
?? readable.awk(489 B)
?? readfile.awk(267 B)
?? rewind.awk(404 B)
?? round.awk(661 B)
?? shellquote.awk(472 B)
?? strtonum.awk(1.42 KB)
?? walkarray.awk(214 B)
?? zerofile.awk(424 B)

Editing: quicksort.awk

# quicksort.awk --- Quicksort algorithm, with user-supplied
#                   comparison function
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# January 2009

# quicksort --- C.A.R. Hoare's quicksort algorithm. See Wikipedia
#               or almost any algorithms or computer science text.
#
# Adapted from K&R-II, page 110

function quicksort(data, left, right, less_than,    i, last)
{
    if (left >= right)  # do nothing if array contains fewer
        return          # than two elements

quicksort_swap(data, left, int((left + right) / 2))
    last = left
    for (i = left + 1; i <= right; i++)
        if (@less_than(data[i], data[left]))
            quicksort_swap(data, ++last, i)
    quicksort_swap(data, left, last)
    quicksort(data, left, last - 1, less_than)
    quicksort(data, last + 1, right, less_than)
}

# quicksort_swap --- helper function for quicksort, should really be inline

function quicksort_swap(data, i, j,      temp)
{
    temp = data[i]
    data[i] = data[j]
    data[j] = temp
}

X7ROOT File Manager

Editing: quicksort.awk

Upload File

Create Folder