Найти сумму первого и последнего элементов списка

@Wally8 · Регистрация: 22.05.2014

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

Помогите решить задачу, найти сумму элементов первого и последнего в списке

@_sg · 30.12.2014, 11:46

Lisp

(defun sum-first-last (w)
  (apply #'+ (car w) (last w)))
 
> (sum-first-last '(1 2 3 4))
5

@Catstail · 30.12.2014, 12:26

Поскольку для нахождения последнего элемента потребуется просмотр списка, то можно так:

Lisp

1 2	(defun task (lst) (+ (car lst) (car (reverse lst))))

или так:

Lisp

1
2
3

(defun task (lst &optional (s (car lst)))
  (cond ((null (cdr lst) (+ s (car lst)))
          (t (task (cdr lst) s)))

@~~ur_naz~~ · 30.12.2014, 14:08

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

(apply #'+ (car w) (last w))

Это в каком диалекте лиспа такое возможно???

@_sg · 30.12.2014, 14:18

ur_naz, CL

Добавлено через 1 минуту
Функция apply применяет функцию к одному и более аргументу, последним из которых должен быть список:

Lisp

> (apply #'* '(8 9 10))        
720
> (apply #'* 8 9 '(10))
720

@nullxdth · 31.12.2014, 03:11

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

Поскольку для нахождения последнего элемента потребуется просмотр списка, то можно так

Catstail, вы так говорите будто reverse бесплатна. (+ (car xs) (car (last xs))) эффективнее, чем (+ (car xs) (car (reverse xs)). Ведь для последнего нужно в 2 раза больше памяти + время на формирование нового списка. Для того чтобы подобные операции выполнять действительно эффективно нужен вектор.

@Catstail · 31.12.2014, 10:03

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

Catstail, вы так говорите будто reverse бесплатна.

- отнюдь нет. Я писал, что до последнего элемента не добраться без просмотра списка до конца. Reverse - один из способов. Да, вектор (массив с прямым доступом по индексу) здесь будет эффективнее.

@nullxdth · 31.12.2014, 14:55

Кстати, занятное ограничение: обобщённую функцию, например, для вектора и списка без runtime проверки типа написать не возможно в CL.

Добавлено через 38 секунд
А вот на C++ без проблем.

@Catstail · 31.12.2014, 15:24

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

А вот на C++ без проблем.

- Вы имеете в виду Template? Или виртуальную функцию? А может быть, банальную перегрузку?

@nullxdth · 31.12.2014, 15:31

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

- Вы имеете в виду Template? Или виртуальную функцию? А может быть, банальную перегрузку?

Template конечно. Виртуальная функция - фактически runtime проверка.

Добавлено через 4 минуты
Что интересно, чекнуть задекларированный тип при macroexpand-е особого труда не составляет (через clt2 расширение):

Lisp

(defmacro info (var-name &environment env)
  `',(multiple-value-list (sb-cltl2:variable-information var-name env)))
 
(let ((x 2015))
  (declare (type integer x))
  (info x))
 
;; (:LEXICAL T ((TYPE . INTEGER)))

Но с таким механизмом можно соптимизировать лишь раскрытия макросов.

@Catstail · 01.01.2015, 13:05

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

Template конечно.

- а Template - это "закадровая" генерация нескольких процедур для разных типов данных... Или я это неверно понял?

@nullxdth · 07.01.2015, 03:19

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

- а Template - это "закадровая" генерация нескольких процедур для разных типов данных... Или я это неверно понял?

Верно поняли.

@Catstail · 07.01.2015, 10:28

nullxdth, тогда это не слишком интересно... т.к. понятно.

@Wally8 2 / 2 / 0 Регистрация: 22.05.2014 Сообщений: 23
		1
	Найти сумму первого и последнего элементов списка 30.12.2014, 11:11. Показов 2933. Ответов 12 Метки нет (Все метки) Помогите решить задачу, найти сумму элементов первого и последнего в списке 0

@~~ur_naz~~ Заблокирован
	30.12.2014, 14:08	4
	Сообщение от _sg (apply #'+ (car w) (last w)) Это в каком диалекте лиспа такое возможно??? 1

@nullxdth 2304 / 1063 / 77 Регистрация: 12.03.2013 Сообщений: 4,987
	31.12.2014, 03:11	6
	Сообщение от Catstail Поскольку для нахождения последнего элемента потребуется просмотр списка, то можно так Catstail, вы так говорите будто reverse бесплатна. (+ (car xs) (car (last xs))) эффективнее, чем (+ (car xs) (car (reverse xs)). Ведь для последнего нужно в 2 раза больше памяти + время на формирование нового списка. Для того чтобы подобные операции выполнять действительно эффективно нужен вектор. 1

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	31.12.2014, 10:03	7
	Сообщение от nullxdth Catstail, вы так говорите будто reverse бесплатна. - отнюдь нет. Я писал, что до последнего элемента не добраться без просмотра списка до конца. Reverse - один из способов. Да, вектор (массив с прямым доступом по индексу) здесь будет эффективнее. 0

@nullxdth 2304 / 1063 / 77 Регистрация: 12.03.2013 Сообщений: 4,987
	31.12.2014, 14:55	8
	Кстати, занятное ограничение: обобщённую функцию, например, для вектора и списка без runtime проверки типа написать не возможно в CL. Добавлено через 38 секунд А вот на C++ без проблем. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	31.12.2014, 15:24	9
	Сообщение от nullxdth А вот на C++ без проблем. - Вы имеете в виду Template? Или виртуальную функцию? А может быть, банальную перегрузку? 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	01.01.2015, 13:05	11
	Сообщение от nullxdth Template конечно. - а Template - это "закадровая" генерация нескольких процедур для разных типов данных... Или я это неверно понял? 0

@nullxdth 2304 / 1063 / 77 Регистрация: 12.03.2013 Сообщений: 4,987
	07.01.2015, 03:19	12
	Сообщение от Catstail - а Template - это "закадровая" генерация нескольких процедур для разных типов данных... Или я это неверно понял? Верно поняли. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	07.01.2015, 10:28	13
	nullxdth, тогда это не слишком интересно... т.к. понятно. 0