¿Cómo hacer que una función Clojure tome una cantidad variable de parámetros?

Question

Estoy aprendiendo Clojure y estoy tratando de definir una función que tome un número variable de parámetros (una función variada de ) y los resuma (sí, al igual que el procedimiento +). Sin embargo, no sé cómo implementar esta función

Todo lo que puedo hacer es:

(defn sum [n1, n2] (+ n1 n2))

Por supuesto, esta función toma dos parámetros parameteres y dos solamente. Por favor, enséñeme cómo hacer que acepte (y procese) un número indefinido de parámetros.

Answer 1

En caso general, no conmutativa puede utilizar apply:

(defn sum [& args] (apply + args)) 

Puesto que la adición es conmutativa, algo como esto debería funcionar también:

(defn sum [& args] (reduce + args)) 

& provoca args estar vinculado a la resto de la lista de argumentos (en este caso, toda la lista, ya que no hay nada a la izquierda de &).

Obviamente define como suma que no tiene sentido, ya que en lugar de:

(sum a b c d e ...) 

que sólo puede escribir:

(+ a b c d e ....) 

Answer 2

defn es una macro que hace las funciones que definen un poco más simple. Clojure soporta sobrecarga aridad en un solo objeto de función, autorreferencia, y funciones Arity variable usando &

De http://clojure.org/functional_programming

Answer 3

Yehoanathan menciona aridad sobrecarga pero no proporciona un ejemplo directo. Esto es lo que está hablando:

(defn special-sum 
    ([] (+ 10 10)) 
    ([x] (+ 10 x)) 
    ([x y] (+ x y))) 

(special-sum) =>20

(special-sum 50) =>60

(special-sum 50 25) =>75

Answer 4

(defn my-sum 
    ([] 0)       ; no parameter 
    ([x] x)       ; one parameter 
    ([x y] (+ x y))     ; two parameters 
    ([x y & more]     ; more than two parameters 


    (reduce + (my-sum x y) more)) 
) 

Answer 5

(defn sum [& args] 
    (print "sum of" args ":" (apply + args))) 

Esta toma cualquier num de argumentos y sumenlos.