这两个 clojure 函数之间有什么区别和问题？

对于课程项目的一部分，我正在实现一个函数来从文件中读取一些数据并根据该文件创建图形结构。一整天我问了几个问题，结果就是这样。

下面是一个可以正常工作的函数。它首先以惰性序列的形式读入文件，然后循环解析每一行并将其打印出来。

(defn printGraph [filename, numnodes]
  (with-open [rdr (io/reader filename)]
    (let [lines (line-seq rdr)]
      (loop [curline (first lines)
             restlines (rest lines)]
        (println (lineToEdge curline))
        (cond (= 0 (count restlines)) curline
              :else
              (recur (first restlines)
                     (rest restlines)))))))

这里我使用一个函数lineToEdge要将文件中的一行解析为图中的一条边，函数如下

(defn lineToEdge [line]
  (cond (.startsWith line "e")
        (let [split-line (into [] (.split line " "))
              first-str (get split-line 1)
              second-str (get split-line 2)]
          [(dec (read-string first-str)) (dec (read-string second-str))])))

使用此函数和作业提供的其他函数，我可以看出它可以将行解析为正确的格式以将其添加到图形中

finalproject.core> (add-edge (empty-graph 10) (lineToEdge "e 2 10"))
[#{} #{9} #{} #{} #{} #{} #{} #{} #{} #{1}]

所以从这里我可以看出，给定一个解析的行lineToEdge我可以将其添加到程序所表示的图表中。

现在，当我想将文件中的边添加到图形中时，我的问题就开始了。似乎当我将逻辑添加到函数中以将线条添加到图表中时，我收到错误，但我无法追踪或确定其原因。具有此逻辑的函数如下所示

(defn readGraph [filename, numnodes]
  (with-open [rdr (io/reader filename)]
    (let [lines (line-seq rdr)]
      (loop [graph (empty-graph numnodes)
             curline (first lines)
             restlines (rest lines)]
        (add-edge graph (lineToEdge curline))
        (cond (= 0 (count restlines)) graph
              :else
              (recur (graph)
                     (first restlines)
                     (rest restlines)))))))

即使除了尝试将边缘添加到图表中（如果我只是允许）graph (empty-graph numnodes)在循环中并重复(graph)从未改变它我仍然得到相同的错误，如下所示

finalproject.core> (readGraphEdges "/home/eccomp/finalproject/resources/11nodes.txt" 11)
ArityException Wrong number of args (0) passed to: PersistentVector  clojure.lang.AFn.throwArity (AFn.java:429)

从这里我不确定错误在哪里，我的意思是我可以阅读错误并解释它，但它现在引导我到哪里。 Clojure 堆栈跟踪也没有给我留下任何线索。

谁能确定问题出在哪里？

正如迭戈·巴什（Diego Basch）提到的，出现错误消息是因为您尝试将图形（集合向量）调用为无参数的函数：(graph)。即使你删除了括号，它仍然会recur与不变的graph最初是循环的输入。add-edge is 返回一个新的、不同的图表这是您真正想要重复使用的：

(defn readGraph [filename, numnodes]
  (with-open [rdr (io/reader filename)]
    (let [lines (line-seq rdr)]
      (loop [graph (empty-graph numnodes)
             curline (first lines)
             restlines (rest lines)]
        (cond (= 0 (count restlines)) graph
              :else
              (recur (add-edge graph (lineToEdge curline))
                     (first restlines)
                     (rest restlines)))))))

但这也有一个问题：在没有更多行可供读取的情况下，我们实际上不会调用add-edge在图表上，所以我们省略了一条边。这似乎是一个简单的修复：只需在我们返回之前执行此操作即可：

(defn readGraph [filename, numnodes]
  (with-open [rdr (io/reader filename)]
    (let [lines (line-seq rdr)]
      (loop [graph (empty-graph numnodes)
             curline (first lines)
             restlines (rest lines)]
        (cond (= 0 (count restlines)) (add-edge graph (lineToEdge curline))
              :else
              (recur (add-edge graph (lineToEdge curline))
                     (first restlines)
                     (rest restlines)))))))

现在这似乎对我有用（我只是在我的测试用例中构建一个 4 节点完整图），但如果你想真正理解函数式编程，它肯定可以改进一点。特别是我们想注意到循环最终执行的操作如下

1 + 2 + 3 + 4 + ... = (((((1 + 2) + 3) + 4) + ...

也就是说，首先我们创建一个空图，然后向其添加一条边以创建一个新图，然后向该图添加一条边，依此类推。
这是数学中非常常见的运算类型，通常称为“左折叠”（因为从左侧开始并向右侧“传播”中间结果）或“归约”。大多数函数式语言都喜欢使用高阶函数来明确这种模式；在 Clojure 中它被称为reduce。它的论据是

• 两个参数的函数。第一个是“到目前为止的值”，第二个是要合并的新值。你的add-edge函数的工作原理如下，获取一个图和一条边，并用该边创建一个新图。
• 可选的起始值，例如我们的初始空图。
• 贯穿函数的值序列。

这是一种非常强大的技术，能够简洁地（并且可预测地/正确地/没有像我一开始那样的小错误）完成您在这里所做的一切loop。开始思考这样的模式可能需要一些精神上的转变，但是一旦你进行了函数式编程，往往会变得更有意义，并且你会注意到模式几乎无处不在。因此，由于这是一项课堂作业，我建议尝试将这个问题解决为reduce为自己格式化。