Parent Directory | Revision Log | Patch
revision 1.4 by pj, Fri Nov 23 06:06:20 2001 UTC | revision 1.5 by pj, Thu Dec 20 18:49:17 2001 UTC | |
---|---|---|
# | Line 271 | Line 271 |
271 | (math-floor (math-sqrt a)))) | (math-floor (math-sqrt a)))) |
272 | ||
273 | ||
274 | ;;; This returns (flag . result) where the flag is T if A is a perfect square. | ;;; This returns (flag . result) where the flag is t if A is a perfect square. |
275 | (defun math-isqrt-bignum (a) ; [P.l L] | (defun math-isqrt-bignum (a) ; [P.l L] |
276 | (let ((len (length a))) | (let ((len (length a))) |
277 | (if (= (% len 2) 0) | (if (= (% len 2) 0) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |