home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / ISLESS.(X) < prev    next >
Text File  |  1993-10-16  |  195b  |  7 lines
  1. #    isless(a,b) gives 1 if a is less than b, 0 otherwise. It is extent
  2. #    of a < b.
  3. #    e.g. isless(1+i, 1-i) gives 0
  4. #    See also: islarger, isless, >, <.
  5.  
  6. isless(a_, b_) := issame(sign(b-a),1)
  7.