home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 666 / quicksrt.prx < prev    next >
Text File  |  1991-10-04  |  177b  |  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.