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