Download code

Jump to: navigation, search

Back to Quicksort_(AWK)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

quicksort.awk

 1 #!/bin/awk -f
 2 # The authors of this work have released all rights to it and placed it
 3 # in the public domain under the Creative Commons CC0 1.0 waiver
 4 # (http://creativecommons.org/publicdomain/zero/1.0/).
 5 # 
 6 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 7 # EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 8 # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 9 # IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
10 # CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
11 # TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
12 # SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
13 # 
14 # Retrieved from: http://en.literateprograms.org/Quicksort_(AWK)?oldid=7851
15 
16 NR == 1         { pivot=$0; next }
17 NR > 1          { if($0 <= pivot)       print | recurse
18                   else                  high = (high ? high "\n" $0 : $0) }
19 
20 END             { close(recurse)
21                   if(NR > 0)            print pivot
22                   if(high)              print high | recurse }
23 BEGIN           { recurse = "awk -f quicksort.awk" }
24 


hijacker
hijacker
hijacker
hijacker