在 Clojure 中使用“应用”函数时出错：“不知道如何从：java.lang.Long 创建 ISeq”

Question

在“Clojure in Action”（第 63 页）中处理以下示例：

(defn basic-item-total [price quantity] 
    (* price quantity))

(defn with-line-item-conditions [f price quantity] 
    {:pre [(> price 0) (> quantity 0)]
     :post [(> % 1)]} 
    (apply f price quantity))

在 REPL 上进行评估：

(with-line-item-conditions basic-item-total 20 1)

导致以下异常被抛出：

Don't know how to create ISeq from: java.lang.Long
  [Thrown class java.lang.IllegalArgumentException]

似乎在评估应用程序后引发了异常。

Answer 1

apply 的最后一个参数应该是sequence of arguments。在您的情况下，用法可能看起来更像这样：

(defn with-line-item-conditions [f price quantity] 
    {:pre [(> price 0) (> quantity 0)]
     :post [(> % 1)]} 
    (apply f [price quantity]))

apply 在处理参数列表时很有用。在您的情况下，您可以简单地调用该函数：

(defn with-line-item-conditions [f price quantity] 
    {:pre [(> price 0) (> quantity 0)]
     :post [(> % 1)]} 
    (f price quantity))