RosettaCodeData/Task/Exponentiation-operator/Common-Lisp/exponentiation-operator-3.lisp

5 lines
78 B
Common Lisp

(defun ^ (a b)
(do ((x 1 (* x a))
(y 0 (+ y 1)))
((= y b) x)))