Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun make-exponentiation (base exp)

2 665c255d 2023-08-04 jrmu   (cond ((=number? exp 0) 1)

3 665c255d 2023-08-04 jrmu 	((=number? exp 1) base)

4 665c255d 2023-08-04 jrmu 	((and (numberp base) (numberp exp))

5 665c255d 2023-08-04 jrmu 	 (expt base exp))

6 665c255d 2023-08-04 jrmu 	(t (list '** base exp))))