проверьте. Напишите функцию семи аргументов, значением которой служит сумма всех семи аргументов

@PFanthem · Регистрация: 11.10.2014

Author24 — интернет-сервис помощи студентам

Напишите функцию семи аргументов, значением которой служит сумма всех семи аргументов.

Lisp

1 2	(defun X (1 3 4 3 4 3 2) (apply '+ (list 1 3 4 3 4 3 2)))

Результат Х.

@helter · 28.02.2016, 05:56

Какой смысл проверять, если вы не удосужились в REPL забить? Почитайте, что дебаггер напишет, осмыслите, возвращайтесь.

Как вам вообще пришла в голову мысль обозначать аргументы цифрами?

@PFanthem · 28.02.2016, 06:34 **[ТС]**

Ой. Т.е. значит так надо?
(defun X (n1 n2 n3 n4 n5 n6 n7)
(apply '+ (list n1 n2 n3 n4 n5 n6 n7)))
X

@_sg · 28.02.2016, 07:58

Lisp

(defun x (n1 n2 n3 n4 n5 n6 n7)
  (+ n1 n2 n3 n4 n5 n6 n7))
 
CL-USER> (x 1 2 3 4 5 6 700)
721

@Catstail · 28.02.2016, 11:07

А почему такая любовь к семерке? Вот функция, которая сложит любое (разумное) количество аргументов:

Lisp

(defun task (&rest a)
 (reduce '+ a))
 
==> task
 
(task 1 2 3 4 5 6 7 8 9 10)
 
==> 55

Добавлено через 2 минуты

Сообщение от PFanthem

Результат Х.

- ха! CL позволяет задать такую функцию. Ошибка возникает при попытке ее вызвать. А ведь можно и сразу убедиться, что список параметров содержит константы.

@helter · 28.02.2016, 13:49

Сообщение от PFanthem

Ой. Т.е. значит так надо?
(defun X (n1 n2 n3 n4 n5 n6 n7)
(apply '+ (list n1 n2 n3 n4 n5 n6 n7)))

Да, нормально.

Вы создаёте список, а затем применяете функцию к элементам списка, как аргументам. Зачем нужен этот промежуточный список, что мешает функцию + применить непосредственно к аргументам?

Сообщение от Catstail

CL позволяет задать такую функцию.

Если вы о функции с аргументами, обозначенными числами — то нет, не позволяет.
http://www.lispworks.com/docum... /03_da.htm
Аргументы должны быть представленными символами, не означающими констант.

@Catstail · 28.02.2016, 21:04

Сообщение от helter

то нет, не позволяет.

- тогда LispWorks не полностью соответствует стандарту

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	28.02.2016, 05:56	2
	Какой смысл проверять, если вы не удосужились в REPL забить? Почитайте, что дебаггер напишет, осмыслите, возвращайтесь. Как вам вообще пришла в голову мысль обозначать аргументы цифрами? 0

@PFanthem 0 / 0 / 1 Регистрация: 11.10.2014 Сообщений: 115
	28.02.2016, 06:34 [ТС]	3
	Ой. Т.е. значит так надо? (defun X (n1 n2 n3 n4 n5 n6 n7) (apply '+ (list n1 n2 n3 n4 n5 n6 n7))) X 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	28.02.2016, 13:49	6
	Сообщение от PFanthem Ой. Т.е. значит так надо? (defun X (n1 n2 n3 n4 n5 n6 n7) (apply '+ (list n1 n2 n3 n4 n5 n6 n7))) Да, нормально. Вы создаёте список, а затем применяете функцию к элементам списка, как аргументам. Зачем нужен этот промежуточный список, что мешает функцию + применить непосредственно к аргументам? Сообщение от Catstail CL позволяет задать такую функцию. Если вы о функции с аргументами, обозначенными числами — то нет, не позволяет. http://www.lispworks.com/docum... /03_da.htm Аргументы должны быть представленными символами, не означающими констант. 0

@Catstail Модератор 37346 / 20778 / 4276 Регистрация: 12.02.2012 Сообщений: 34,187 Записей в блоге: 14
	28.02.2016, 21:04	7
	Сообщение от helter то нет, не позволяет. - тогда LispWorks не полностью соответствует стандарту 0

проверьте. Напишите функцию семи аргументов, значением которой служит сумма всех семи аргументов

Решение