/usr/share/doc/runawk/examples/demo_quicksort2 is in runawk 1.5.1-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | #!/usr/bin/env runawk
#use "quicksort.awk"
#use "alt_assert.awk"
# This is a regression test for quicksort.awk module
BEGIN {
srand()
cnt = 400
start = 20
end = start + cnt
sum = 0
for (i=start; i <= end; ++i){
arr [i] = int (rand() * 50)
sum += arr [i]
}
quicksort(arr, remap, start, end)
end_sum = 0
for (i=start; i <= end; ++i){
# printf "arr [%s]=%s\n", i, arr [remap [i]]
assert(i == start || arr [remap [i-1]] <= arr [remap [i]], "failed!")
end_sum += arr [remap [i]]
}
assert(sum == end_sum, "sum != end_sum")
exit 0
}
|