Parent Directory | Revision Log | Patch
revision 1.24 by pfdietz, Sun Dec 5 13:55:14 2004 UTC | revision 1.25 by pfdietz, Sun Dec 5 15:04:20 2004 UTC | |
---|---|---|
# | Line 49 | Line 49 |
49 | (setq lo mid) | (setq lo mid) |
50 | (if (= mid hi) | (if (= mid hi) |
51 | (return lo) | (return lo) |
52 | (setq hi mid)))))) | (setq hi mid)))) |
53 | finally (return lo))) | |
54 | ||
55 | (defun find-largest-exactly-floatable-integer (upper-bound) | (defun find-largest-exactly-floatable-integer (upper-bound) |
56 | (integer-binary-search | (integer-binary-search |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |