Errore con "applicare" la funzione in Clojure: "Non so come creare iseq da: java.lang.Long" (Pag. 63)

Question

Lavorando sul seguente esempio in "Clojure in azione":

(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)) 

valutazione sulla REPL:

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

risultati nella seguente eccezione che sono gettati:

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

sembra che l'eccezione viene th rown dopo aver valutato la procedura di applicazione.

Answer 1

L'ultimo argomento per apply deve essere un sequence of arguments. Nel tuo caso, l'utilizzo potrebbe apparire più simile a questo:

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

apply è utile quando si lavora con un elenco di argomenti. Nel tuo caso, puoi semplicemente chiamare la funzione:

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