home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / interpre / proxy / quicksrt.prx < prev    next >
Encoding:
Text File  |  1991-10-04  |  177 b   |  8 lines
  1. // quicksort: seq -> seq
  2.  
  3. quicksort(s;x) { if(len s<2) return s;
  4.           x=s[1];
  5.           return quicksort([y:y<-s;y<x]) conc [x]
  6.         conc quicksort([y:y<-tl s;y>=x]);};
  7. end
  8.