找到clojure中的所有权力根源

Question

这是Finding integer power roots的重播，但在clojure中：

如何找到数字的所有整数根？

所以我想要一个功能：

(defn roots [ex num] .....)

当被叫时给出：

(roots 4 81) => [3, -3, 3i, -3i]

Answer 1

我找到的最好的数学库是apache commons数学库

使用将此添加到project.clj

[org.apache.commons/commons-math3 "3.0"]

它内置了一个nth-root方法，以下内容可以是包装器：

(import org.apache.commons.math3.complex.Complex)

(defn complex
  ([re] (complex re 0))
  ([re im]
      (Complex/valueOf re im)))

(defn nth-root [#^Complex c m] (seq (.nthRoot c m)))

(defmethod print-method
  Complex
  [this w]
  (print (format "(%f %fi)" (re this) (im this))))

(nth-root (complex 1 4) 6)
;; => ((1.235513 0.277543i) (0.377397 1.208757i) (-0.858115 0.931214i) (-1.235513 -0.277543i) (-0.377397 -1.208757i) (0.858115 -0.931214i))

Answer 2

user> (defn nth-root
          [n x]
        (long (Math/pow x (/ 1.0 n))))
#'user/nth-root
user> (nth-root 4 81)
3

说实话，我不知道标准化的处理方式 Clojure中的一个复数。您可能必须实施 您自己的Complex记录，使用defrecord。