Рекурсия CDR в Lisp

@BrdNLSrg · Регистрация: 04.04.2012

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

Помогите написать функцию которая формирует список таким образом: первый элемент произведение элементов списка, второй - произведение элементов хвоста, третий - произведение элементов хвоста хвоста и так далее. Примером для списка '(1 2 3 4 5 6) результатом должно быть '(720 720 360 120 30 6).

@bokunopico · 04.04.2012, 13:28

Рекурсия и случайные числа

@Nameless One · 04.04.2012, 17:42

Еще вариант:

Lisp

1 2	(defun prod-cons (list) (loop for cons on list collect (reduce #'* cons)))

@Catstail · 04.04.2012, 19:03

И еще вариант:

Lisp

1	(defun mf (x) (maplist '(lambda (z) (apply '* z)) x))

@BrdNLSrg · 04.04.2012, 20:45 **[ТС]**

Всем спасибо! Очень помогли.

@BrdNLSrg 0 / 0 / 1 Регистрация: 04.04.2012 Сообщений: 4
		1
	Рекурсия CDR в Lisp 04.04.2012, 13:21. Показов 1311. Ответов 4 Метки нет (Все метки) Помогите написать функцию которая формирует список таким образом: первый элемент произведение элементов списка, второй - произведение элементов хвоста, третий - произведение элементов хвоста хвоста и так далее. Примером для списка '(1 2 3 4 5 6) результатом должно быть '(720 720 360 120 30 6). 0

@bokunopico 313 / 268 / 5 Регистрация: 03.04.2011 Сообщений: 456
	04.04.2012, 13:28	2
	Рекурсия и случайные числа 1

@BrdNLSrg 0 / 0 / 1 Регистрация: 04.04.2012 Сообщений: 4
	04.04.2012, 20:45 [ТС]	5
	Всем спасибо! Очень помогли. 0