Написать функцию, раскрывающую произведение сумм в сумму произведений

@serjoga11 · Регистрация: 28.11.2010

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

здравствуйте. помогите пожалуйста, сделайте задачку вот такую:

Написать функцию, раскрывающую произведения сумм (A1+A2+...+An)*(B1+B2+...+Bn) в сумму
произведений.

буду очень благодарен)

Добавлено через 12 минут
и если можно, то без использования lambda

@Nameless One · 07.12.2010, 15:32

Приведи пример входных и выходных данных

@VH · 07.12.2010, 16:44

С (lambda) это просто:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun F (&rest args)
 (if args
  (if (cdr args)
   (apply 'append
    (mapcar
    '(lambda (car)
      (mapcar
      '(lambda (cdr)
        (* car cdr))
       (apply #'F
        (cdr args))))
     (car args)))
   (car args))))

На входе - списки слагаемых, на выходе - список произведений.

@serjoga11 · 07.12.2010, 18:47 **[ТС]**

например
(a1+a2+a3)*(b1+b2+b3)=(a1*b1)+(a2*b2)+(a 3*b3)

Добавлено через 8 минут
а вот без lambda можно предыдущий пример от VH

@VH · 07.12.2010, 19:17

До сегодняшнего вечера было
(a1+a2+a3)*(b1+b2+b3)=(a1*b1)+(a2*b1)+(a 3*b1)+(a1*b2)+(a2*b2)+(a3*b2)+(a1*b3)+(a 2*b3)+(a3*b3)

@serjoga11 · 07.12.2010, 20:13 **[ТС]**

ты прав, я ошибся)

Добавлено через 26 секунд
и больше уже не надо

@VH · 08.12.2010, 00:46

Кому-нибудь пригодится:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(defun F (&rest args)
 (if args
  (if (cdr args)
   (apply 'append
    (mapcar
    '(lambda (car)
      (mapcar
      '(lambda (cdr)
        ((lambda (flag)
          (cond
           ((equal flag '(T T))
             (list '* car cdr))
           ((equal flag '(T nil))
            (cons '* (cons car (cdr cdr))))
           ((equal flag '(nil T))
            (cons '* (cons cdr (cdr car))))
           ((equal flag '(nil nil))
            (cons '* (append (cdr car) (cdr cdr))))))
         (list (atom car) (atom cdr))))
       (apply #'F
        (cdr args))))
     (car args)))
   (car args))))

Вызов (F '(1 2) '(3 B) '(D 4)) возвращает
((* 1 3 D) (* 1 3 4) (* 1 B D) (* 1 B 4) (* 2 3 D) (* 2 3 4) (* 2 B D) (* 2 B 4))

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@serjoga11 0 / 0 / 0 Регистрация: 28.11.2010 Сообщений: 18

	Написать функцию, раскрывающую произведение сумм в сумму произведений 07.12.2010, 15:21. Показов 1033. Ответов 6 Метки нет (Все метки) здравствуйте. помогите пожалуйста, сделайте задачку вот такую: Написать функцию, раскрывающую произведения сумм (A1+A2+...+An)(B1+B2+...+Bn) в сумму произведений. буду очень благодарен) Добавлено через 12 минут* и если можно, то без использования lambda 0

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	07.12.2010, 15:32
	Приведи пример входных и выходных данных 0

@serjoga11 0 / 0 / 0 Регистрация: 28.11.2010 Сообщений: 18
	07.12.2010, 18:47 [ТС]
	например (a1+a2+a3)(b1+b2+b3)=(a1b1)+(a2b2)+(a 3b3) Добавлено через 8 минут а вот без lambda можно предыдущий пример от VH 0

@VH 431 / 259 / 23 Регистрация: 23.11.2010 Сообщений: 278
	07.12.2010, 19:17
	До сегодняшнего вечера было (a1+a2+a3)(b1+b2+b3)=(a1b1)+(a2b1)+(a 3b1)+(a1b2)+(a2b2)+(a3b2)+(a1b3)+(a 2b3)+(a3b3) 0

@serjoga11 0 / 0 / 0 Регистрация: 28.11.2010 Сообщений: 18
	07.12.2010, 20:13 [ТС]
	ты прав, я ошибся) Добавлено через 26 секунд и больше уже не надо 0