home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPDEMO.EXE / MERGE < prev    next >
Encoding:
Text File  |  1987-02-09  |  346 b   |  19 lines
  1. (*
  2.  * Merge
  3.  *
  4.  * Merge two ascending sequences.
  5.  *
  6.  * The sequences should not mix strings and numbers.
  7.  *
  8.  * Example:
  9.  *
  10.  *    <<a b x z> <c d z>> : Merge -> <a b c d x y z>
  11.  *)
  12. DEF Merge AS
  13.    IF EACH null END | or THEN cat
  14.    ELSE
  15.       IF EACH 1 END | > THEN reverse ELSE id END |
  16.       [1|1,[1|tl,2]|Merge] | apndl
  17.    END;
  18.  
  19.