Составить из 2х заданных списков третий

@Товарищ Тяфка · Регистрация: 05.05.2013

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

Даны 2 списка: (1 2 3) и (2 3 4). Нужно из этих списков составить список, состоящий из всех возможных комбинаций элементов этих списков, т.е. получить:
( (1 2)(1 3)(1 4)(2 2)(2 3)(2 4)(3 2)(3 3)(3 4) )

@Catstail · 29.06.2013, 19:30

1) функционалы:

Lisp
1
2
3
4
5
6
7
8
(defun decart (lst1 lst2)
 (apply 'append (mapcar #'(lambda (x) (mapcar #'(lambda (y) (list x y)) lst2)) lst1)))
 
==> decart
 
(decart '(1 2 3) '(a b c d))
 
==> ((1 a) (1 b) (1 c) (1 d) (2 a) (2 b) (2 c) (2 d) (3 a) (3 b) (3 c) (3 d))

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

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun decart (lst1 lst2)
   (let ((res nil))
     (dolist (x lst1 res)
        (dolist (y lst2 t)
            (push (list x y) res)))))
 
==> decart
 
(decart '(1 2 3) '(a b c d))
 
==> ((3 d) (3 c) (3 b) (3 a) (2 d) (2 c) (2 b) (2 a) (1 d) (1 c) (1 b) (1 a))

@_sg · 29.06.2013, 19:45

Lisp
1
2
3
4
5
6
7
8
(defun cartesian-product (w v) 
  (when w (nconc (mi (car w) v) (cartesian-product (cdr w) v)))) 
 
(defun mi (a v) 
  (when v (cons (list a (car v)) (mi a (cdr v))))) 
 
> (cartesian-product '(a b c d) '(1 2 3))
((A 1) (A 2) (A 3) (B 1) (B 2) (B 3) (C 1) (C 2) (C 3) (D 1) (D 2) (D 3))

Lisp
1
2
3
4
5
6
7
8
(defun cartesian-product (w v)
  (apply
   #'nconc
   (mapcar
    #'(lambda (e) (mapcar #'(lambda (a) (list e a)) v)) w)))
 
> (cartesian-product '(a b c d) '(1 2 3))
((A 1) (A 2) (A 3) (B 1) (B 2) (B 3) (C 1) (C 2) (C 3) (D 1) (D 2) (D 3))

Lisp
1
2
3
4
5
(defun cartesian-product (w v)
  (mapcan (lambda (e) (mapcar (lambda (a) `(,a ,e)) w)) v))
 
> (cartesian-product '(a b c d) '(1 2 3))
((A 1) (B 1) (C 1) (D 1) (A 2) (B 2) (C 2) (D 2) (A 3) (B 3) (C 3) (D 3))

@Catstail · 29.06.2013, 19:48

3) рекурсия:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun decart (lst1 lst2)
  (labels ((plist (x lst)
             (cond ((null lst) nil)
                   (t (cons (list x (car lst)) (plist x (cdr lst)))))))
          (cond ((null lst1) nil)
                (t (append (plist (car lst1) lst2) (decart (cdr lst1) lst2))))))
 
==> decart
 
(decart '(1 2 3) '(a b c))
 
==> ((1 a) (1 b) (1 c) (2 a) (2 b) (2 c) (3 a) (3 b) (3 c))

@Товарищ Тяфка · 29.06.2013, 23:45 **[ТС]**

Так выводит то списки с буквами, а не с цифрами... Или Вы решаете задачу в для общего случая? (мне то достаточно для этого, с самым примитивным алгоритмом

)

@netrino · 30.06.2013, 00:01

Нет разницы что находится в списке. И если ограничить список числами, это задачу не упростит.
Вот ещё на Racket вариант

Lisp
1
2
3
(define (decart list-1 list-2)
  (for*/list ([x list-1] [y list-2])
    (list x y)))

@Товарищ Тяфка · 02.07.2013, 00:15 **[ТС]**

Catstail, а нельзя решить эту задачу по простому? Я имею ввиду, только для данного случая и, например, с "car" и "cdr" ?

@Catstail · 02.07.2013, 08:31

Сообщение от Товарищ Тяфка

по простому

- пишется "по-простому"

Сообщение от Товарищ Тяфка

только для данного случая

- для какого данного? Для числовых списков?

Сообщение от Товарищ Тяфка

и, например, с "car" и "cdr"

- так эти функции фигурируют почти во всех решениях... А только с car и cdr (без использования других) не получится. Для решения задачи нужен перебор списков, а это - либо циклы (do или dolist), либо рекурсия (cond или if). А для конструирования результата нужен cons (или append).

Впрочем, для списков фиксированной длины (напр. 2) можно предложить частное решение ("по-простому"):

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun f (x y)
  (cons (cons (car x) (cons (car y) nil))  
        (cons (cons (car x) (cons (cadr y) nil)) 
              (cons (cons (cadr x) (cons (car y) nil)) 
                    (cons (cons (cadr x) (cons (cadr y) nil)) nil))))) 
 
==> f
 
(f '(1 2) '(3 4))
 
==> ((1 3) (1 4) (2 3) (2 4))

Это "простое" решение не будет работать для списков, c длиной, отличной от 2.

Добавлено через 5 минут
Несколько проще "решение" с list:

Lisp
1
2
3
4
5
6
7
8
9
(defun f (x y)
  (list (list (car x) (car y)) (list (car x) (cadr y))            
        (list (cadr x) (car y)) (list (cadr x) (cadr y))))
 
==> f
 
(f '(1 2) '(3 4))
 
==> ((1 3) (1 4) (2 3) (2 4))

@_sg · 02.07.2013, 08:52

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun cartesian-product (w v) 
  (cond ((null w) nil)
        (t (append (mi (car w) v)
                   (cartesian-product (cdr w) v)))))
 
(defun mi (a w) 
  (cond ((null w) nil)
        (t (cons (list a (car w)) (mi a (cdr w))))))
 
> (cartesian-product '(1 2 3) '(2 3 4))
((1 2) (1 3) (1 4) (2 2) (2 3) (2 4) (3 2) (3 3) (3 4))

@Товарищ Тяфка · 02.07.2013, 11:09 **[ТС]**

_sg, спасибо, это то, что нужно

Новые блоги и статьи Все статьи Все блоги /
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .

Составить из 2х заданных списков третий

Решение

Решение

@Товарищ Тяфка 1 / 1 / 0 Регистрация: 05.05.2013 Сообщений: 17

	Составить из 2х заданных списков третий 29.06.2013, 18:04. Показов 1259. Ответов 9 Метки нет (Все метки) Даны 2 списка: (1 2 3) и (2 3 4). Нужно из этих списков составить список, состоящий из всех возможных комбинаций элементов этих списков, т.е. получить: ( (1 2)(1 3)(1 4)(2 2)(2 3)(2 4)(3 2)(3 3)(3 4) ) 0

@Товарищ Тяфка 1 / 1 / 0 Регистрация: 05.05.2013 Сообщений: 17
	29.06.2013, 23:45 [ТС]
	Так выводит то списки с буквами, а не с цифрами... Или Вы решаете задачу в для общего случая? (мне то достаточно для этого, с самым примитивным алгоритмом) 0

@Товарищ Тяфка 1 / 1 / 0 Регистрация: 05.05.2013 Сообщений: 17
	02.07.2013, 00:15 [ТС]
	Catstail, а нельзя решить эту задачу по простому? Я имею ввиду, только для данного случая и, например, с "car" и "cdr" ? 0

@Товарищ Тяфка 1 / 1 / 0 Регистрация: 05.05.2013 Сообщений: 17
	02.07.2013, 11:09 [ТС]
	_sg, спасибо, это то, что нужно 0