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