home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a009 / 6.ddi / SAMPLE.LIF / ARRAY.CH next >
Encoding:
Text File  |  1991-04-14  |  606 b   |  16 lines
  1. /***
  2. *  
  3. *     Array.ch
  4. *     Header file for array functions contained in Array.ch.
  5. *     Copyright Nantucket Corporation, 1990
  6. *
  7. *     Usage: place #include "Array.ch" at the top of any program file
  8. *            that uses a function from Array.prg.
  9. */
  10.  
  11. // Comparison blocks to be used with AComp()
  12. #define AC_MAX    {|x,y| x > y}           // Element with maximum value
  13. #define AC_MIN    {|x,y| x < y}           // Element with minimum value
  14. #define AC_MAXLEN {|x,y| LEN(x) > LEN(y)} // Element with maximum length
  15. #define AC_MINLEN {|x,y| LEN(x) < LEN(y)} // Element with minimum length
  16.