1 665c255d 2023-08-04 jrmu (defun double (x)
2 665c255d 2023-08-04 jrmu   (* x 2))
3 665c255d 2023-08-04 jrmu (defun halve (x)
4 665c255d 2023-08-04 jrmu   (/ x 2))
5 665c255d 2023-08-04 jrmu (defun fast-mult (a b)
6 665c255d 2023-08-04 jrmu   (cond ((= b 0) 0)
7 665c255d 2023-08-04 jrmu 	((= b 1) a)
8 665c255d 2023-08-04 jrmu 	((evenp b) (double (fast-mult a (halve b))))
9 665c255d 2023-08-04 jrmu