home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPDEMO.EXE / SELSORT < prev    next >
Encoding:
Text File  |  1987-02-09  |  356 b   |  20 lines
  1. (*
  2.  * Selection sort
  3.  *
  4.  * Example:
  5.  *
  6.  *      <3 1 4 1 5 9 2> : SelSort == <1 1 2 3 4 5 9>
  7.  *
  8.  * The sequence must be numeric.
  9.  *)
  10. DEF SelSort AS
  11.    IF [length,#2] | < THEN id
  12.    ELSE 
  13.       [INSERT min END,id] | distl |
  14.       [
  15.          FILTER  = END | EACH 2 END,
  16.          FILTER ~= END | EACH 2 END | SelSort
  17.       ] | cat
  18.    END;
  19.  
  20.