clojure - 如何在 Clojure 中进行求幂？

Question

如何在 Clojure 中进行求幂？ 现在我只需要整数求幂，但问题也适用于分数。

Answer 1

经典递归(看这个，它会破坏堆栈)

(defn exp [x n]
     (if (zero? n) 1
         (* x (exp x (dec n)))))

尾递归

(defn exp [x n]
  (loop [acc 1 n n]
    (if (zero? n) acc
        (recur (* x acc) (dec n)))))

功能性

(defn exp [x n]
  (reduce * (repeat n x)))

偷偷摸摸(也会破坏堆栈，但不那么容易)

(defn exp-s [x n]
  (let [square (fn[x] (* x x))]
    (cond (zero? n) 1
          (even? n) (square (exp-s x (/ n 2)))
          :else (* x (exp-s x (dec n))))))

图书馆

(require 'clojure.contrib.math)