Я изучаю Clojure, и я пытаюсь определить функцию, которая принимает переменное количество параметров (вариационную функцию) и суммирует их (да, как и процедура +). Однако я не знаю, как реализовать такую функцию
Все, что я могу сделать, это:
(defn sum [n1, n2] (+ n1 n2))
Конечно, эта функция принимает только два параметра и только два параметра. Пожалуйста, научите меня, как заставить его принимать (и обрабатывать) число параметров undefined.
В общем случае, некоммутативный случай, вы можете использовать apply:
(defn sum [& args] (apply + args))
Поскольку сложение является коммутативным, что-то вроде этого тоже должно работать:
(defn sum [& args] (reduce + args))
& вызывает привязку args к остальной части списка аргументов (в этом случае весь список, так как ничего не осталось от &).
Очевидно, что определение такой суммы не имеет смысла, поскольку вместо:
(sum a b c d e ...)
вы можете просто написать:
(+ a b c d e ....)
Yehoanathan упоминает перегрузку arity, но не дает прямого примера. Вот о чем он говорит:
(defn special-sum
([] (+ 10 10))
([x] (+ 10 x))
([x y] (+ x y)))
(special-sum) = > 20
(special-sum 50) = > 60
(special-sum 50 25) = > 75
(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))
)
defn- макрос, который упрощает определение функций. Clojure поддерживает перегрузку arity в одном объекте функции, функции самореференции и переменной функции с помощью&
(defn sum [& args]
(print "sum of" args ":" (apply + args)))
Это принимает любое количество аргументов и добавляет их.