REDROOM

PHP 5.6.40

Path:

Navigation

Breadcrumbs

/ / usr / share / awk

Create

Create File | Create Folder | Upload Files | Run Command

Preview: quicksort.awk Size: 1.01 KB

//usr/share/awk/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
}

Directory Contents

Dirs: 0 × Files: 26

Sort:

Enable drag-to-move

Name	Size	Perms	Modified	Actions
assert.awk	383 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
bits2str.awk	334 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
cliff_rand.awk	307 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ctime.awk	234 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ftrans.awk	315 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
getopt.awk	2.15 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
gettime.awk	2.43 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
group.awk	1.72 KB	lrw-r--r--	2022-04-18 15:55:53	Edit Download recursive recursive
have_mpfr.awk	221 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
inplace.awk	1.95 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
intdiv0.awk	462 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
join.awk	378 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
libintl.awk	238 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
noassign.awk	422 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ord.awk	937 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
passwd.awk	1.17 KB	lrw-r--r--	2022-04-18 15:55:53	Edit Download recursive recursive
processarray.awk	355 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
quicksort.awk	1.01 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
readable.awk	489 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
readfile.awk	267 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
rewind.awk	404 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
round.awk	661 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
shellquote.awk	472 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
strtonum.awk	1.42 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
walkarray.awk	214 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
zerofile.awk	424 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive