1 665c255d 2023-08-04 jrmu (defun fast-mult-iter (a b &optional (acc 0))
2 665c255d 2023-08-04 jrmu   (cond ((= b 0) acc)
3 665c255d 2023-08-04 jrmu 	((evenp b) (fast-mult-iter (double a) (halve b) acc))
4 665c255d 2023-08-04 jrmu 	(t (fast-mult-iter a (1- b) (+ a acc)))))