User:Eriksiers/Alternate CLISP exponentiation: Difference between revisions

This is a better example of exponent (it doesn't solve for negatives however so I will leave in tact the other example):

 

(defun ^ (a b)

(let ((r 1))

(dotimes (x b r)

(setf r (* r a)))))

 

<small>(The above example is by [[User:Ahungry|Ahungry]].)</small>

Later, I might update this to handle [[Nth root|b as a float]].

 

; b must be an integer

; a can be integer or floating-point

)

)

 

Sample outputs: