mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Exponentiation-operator/Common-Lisp/exponentiation-operator-3.lisp

5 lines
78 B
Common Lisp
Raw Permalink Blame History

(defun ^ (a b)
(do ((x 1 (* x a))
(y 0 (+ y 1)))
((= y b) x)))
Reference in New Issue View Git Blame Copy Permalink