4 lines
78 B
Common Lisp
4 lines
78 B
Common Lisp
(defun ^ (a b)
|
|
(do ((x 1 (* x a))
|
|
(y 0 (+ y 1)))
|
|
((= y b) x)))
|