/[emacs]/emacs/lisp/calc/calc-math.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-math.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26