home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
LF
/
T8104.LF
< prev
next >
Wrap
Text File
|
1996-06-04
|
551b
|
23 lines
%
% Wild_life testing
%
% Infinity and NaN
%
%
testInfinity(X) :-
( nl, write(exp(X)) ;
nl, write(exp(-1*X)) ;
nl, write(log(X)) ;
nl, write(sqrt(X)) ;
nl ,write(12*X+342)),
fail.
testInfinity.
testNaN :- ( nl, write(cos(1e10)) ;
nl, write(cos(cos(1e10))) ;
nl ,write(1e310 - 1e310) ;
nl ,write(cos(1e310)) ),
fail.
testNaN.