Function: math-iipow

math-iipow is a byte-compiled function defined in calc-misc.el.gz.

Signature

(math-iipow A N)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
(defun math-iipow (a n)   ; [O O S]
  (cond ((= n 0) 1)
	((= n 1) a)
	((= (% n 2) 0) (math-iipow (math-mul a a) (/ n 2)))
	(t (math-mul a (math-iipow (math-mul a a) (/ n 2))))))