尝试使用 Clojure-Contrib Graph 函数

Question

我无法从 Clojure-Contrib Graph 获取函数定点运行。诚然，这个问题是微不足道的。我尝试使用loading clojure-contrib 中显示的技术，但仍然遇到麻烦。

注意：我正在使用 Leiningin 启动 REPL。

这里是定点源代码：

(defn fixed-point

“反复对数据应用乐趣直到（等于旧数据新数据） 返回真。如果发生最大迭代，它将抛出一个 例外。将 max 设置为 nil 以实现无限次迭代。”

[data fun max equal]
  (let [step (fn step [data idx]
           (when (and idx (= 0 idx))
             (throw (Exception. "Fixed point overflow")))
           (let [new-data (fun data)]
             (if (= data new-data)
               new-data
               (recur new-data (and idx (dec idx))))))]
          (step data max)))

除了“定点溢出”之外，我似乎无法从此函数获得输出。有人可以展示一个有效的例子。

Answer 1

clojure.contrib.graph 没有活动的维护者，因此在1.2 clojure.contrib mega split 之后从未迁移。

如果你仍在使用 Clojure 1.2，你应该可以让它工作，否则 1.3 有一个替代 clj-graph here，但已经安静了一段时间。

无论如何，您都应该检查您的project.clj：

• 正确的 clojure 版本
• 正确的依赖声明

如果仍有问题，请在此处粘贴异常。