Log and sqrt require floating point?

Does log or sqrt need to be computed using floating-point representation? This excludes the larger part of bignums.

1. log requires bignum?

This is a test:

(define x (expt 10 2480))
(log x)

If the implementation wants to answer (log x) with the correct number, the logarithm must be calculated without the floating-point C library log function, since the number is far too large to fit in current days 64-bit doubles.

2. How is the log of bignum rational computed?

Now we can try another thing:

(define n (/ (expt 2 3000)
             (+ (expt 2 3000) 1)))
(log n)

An implementation may first obtain an inexact then compute the log, or compute separate logs then subtract. The results may be different, depending on how the implementation deals with logs of bignums.

3. What about a bignum that does fit a double?

Another interesting test is this -- what if we have a bignum that does fit a double?

(define x (expt 2 200))
(log x)

4. Does sqrt work on bignums?

A third test:

(define S (+ (expt 2 2030) 111111111111111111111111117))
(sqrt S)
System (log (expt 10 2480)) (log (expt 2 200)) (sqrt S)
Bigloo -inf.0 -inf.0 -inf.0 10540925533894.598
Biwa +inf.0 +nan.0 138.62943611198907 +inf.0
Chez 5710.411030625233 0.0 138.62943611198907 3.511119404027961e305
Chibi +inf.0 0.0 138.62943611198907 3.511119404027961e+305
Chicken +inf.0 0.0 138.62943611198907 +inf.0
Cyclone +inf.0 -inf.0 138.62943611198907 +inf.0
Foment +inf.0 error 138.62943611198907 error
Gambit 5710.411030625233 0.0 138.62943611198907 3.511119404027961e305
Gauche 5710.411030625233 0.0 138.62943611198907 +inf.0
Guile 5710.411030625233 0.0 138.62943611198907 3.511119404027961e305
Kawa +inf.0 0.0 138.62943611198907 +inf.0
LIPS +inf.0 +nan.0 138.62943611198907 +inf.0
Loko +inf.0 -nan.0 +inf.0 +inf.0
MIT +inf.0 0 138.62943611198907 error
Racket 5710.411030625233 0.0 138.62943611198907 3.511119404027961e+305
Sagittarius 5710.411030625233 0.0 138.62943611198907 +inf.0
Scheme 9 5710.411030625213 0.0 138.629436111989054 3.51111940402796075e+305
STklos (head) 5710.411030625213 0.0 138.629436111989054 +inf.0
Tinyscheme +inf.0 -nan.0 138.6294361 +inf.0
Unsyntax +inf.0 0.0 138.6294361 3.511119404027961e+305
Ypsilon 5710.411030625233 0.0 138.62943611198907 +inf.0
ABCL error 0.0 138.62944 error (argument too large to fit single float)
CCL 5710.411 0.0 138.62943 overflow
Clisp 5710.411 0.0 138.62943 overflow
CMUCL 5710.411 0.0 138.62943 overflow
ECL 5710.411 0.0 138.62943 overflow
GCL error 0.0 138.62943611198907 error
SBCL 5710.411 0.0 138.62943 overflow
Emacs Lisp 1.0e+INF -1.0e+INF 138.62943611198907 1.0e+INF

Another experiment:

(log 1/6319748715279270675921934218987893281199411530039296)

Should return -119.27551918982401. (This was posted to the ECL mailing list on 2022-Jul-03 -- ECL does not compute the value, and complains about the user requesting log of zero).

All others return the correct result; Bigloo and Scheme9 need the rational to be described as division, not as rational type.


Back to Scheme Surveys

Page source (GitHub)