如何抽象列表以在Clojure中的其他功能中对其进行操作？

Question

我是功能语言的新手，我正在尝试在Clojure中实现一个简单的附加功能。我的代码：

(defn append
  [lizt1 lizt2]
  (cond
    (empty? lizt1) lizt2
    :else (def sq (cons (first sq lizt1) (append (rest sq lizt1) lizt2)))))

(let [x (quote (1 2 3))
      y (quote (4 5 6))]
  (append (x y))) ) 

我正在收到一个

  clojure.lang.PersistentList cannot be cast to clojure.lang.IFn 

异常，因此我假设我试图传递该功能的列表不是兼容类型（例如，如果我要执行列表功能，并尝试通过该函数）。我认为引用列表可以通过接口函数访问它。有人可以帮助我概念化如何抽象列表以在单独的函数中操纵其数据吗？

Answer 1

错误来源是此调用：

(append(x y))

此表达式不调用带有参数的附加 x和y，但调用x 使用参数y，此调用的结果用作附录的参数。

但是x是列表，列表不能用作函数 - 这是clojure.lang.persistentlist的含义，无法将其施加到clojure.lang.ifn。

在clojure中，括号的位置非常重要且正确的语法，“ call 用x x和y” 是：

(append x y)

但是还有更多修复：

• QUOTE> QUOTE 通常会缩短为'：

'(1 2 3)
=> (1 2 3)

但是我建议您使用矢量，这样：

[1 2 3]
=> [1 2 3]

• 您不必在此处使用两个嵌套让 s，一个 让 可以具有许多绑定：

(let [x [1 2 3]
      y [4 5 6]]
  ...)

• cond 只有两个分支是 如果。
• 不要使用 def 内部 defn - def def 创建一个全局变量。当您确实需要在功能中创建一些变量时，请使用让。

解决方案您正在寻找这样的外观：（

(defn append [col1 col2]
  (if (empty? col1) 
    col2
    (cons (first col1)
          (append (rest col1) col2))))
                    
(let [x [1 2 3]
      y [4 5 6]]
  (append x y))
=> (1 2 3 4 5 6)

seq，但是 empty？ 也有效。）

注意 。有一个函数 concat concat 做同样的事情。