it-swarm.com.ru

Как заставить функцию Clojure принимать переменное количество параметров?

Я изучаю Clojure, и я пытаюсь определить функцию, которая принимает переменное число параметров (функция variadic) и суммирует их (да, точно так же, как процедура +). Однако я не знаю, как реализовать такую ​​функцию

Все, что я могу сделать, это:

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

Конечно, эта функция принимает только два параметра и два параметра. Пожалуйста, научите меня, как заставить его принимать (и обрабатывать) неопределенное количество параметров.

76
rodrigoalves

В общем, некоммутативный случай вы можете использовать применить :

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

Поскольку сложение является коммутативным, должно работать и что-то подобное:

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

& заставляет args быть привязанным к остальной части списка аргументов (в данном случае это весь список, поскольку слева от & нет ничего).

Очевидно, что определение такой суммы не имеет смысла, поскольку вместо:

(sum a b c d e ...)

вы можете просто написать:

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

Yehoanathan упоминает перегрузку арности, но не дает прямого примера. Вот что он говорит:

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

(special-sum) => 20

(special-sum 50) => 60

(special-sum 50 25) => 75

30
Devin Walters
 (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))
  )
17
hariszaman

defn - это макрос, который упрощает определение функций. Clojure поддерживает перегрузку арности в одном объекте-функции, самоссылке и функциях переменной арности с использованием &

От http://clojure.org/functional_programming

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

Это принимает любое количество аргументов и складывает их.

3
amirt