Function: math-iipow-show

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

Signature

(math-iipow-show A N)

Source Code

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