1 665c255d 2023-08-04 jrmu (defun fast-expt-iter (b n &optional (a 1))
2 665c255d 2023-08-04 jrmu   (cond ((= n 0) a)
3 665c255d 2023-08-04 jrmu 	((evenp n) (fast-expt-iter (square b) (/ n 2) a))
4 665c255d 2023-08-04 jrmu 	(t (fast-expt-iter b (- n 1) (* b a)))))