Функция: на основе двух списков сформировать новый список, в котором чередуются элементы исходных

@zara11223344 · Регистрация: 18.10.2012

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

написать функцию которая на основе двух списков формирует новый список в котором чередуются элементы исходных

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

@Catstail · 12.11.2012, 11:58

1.

Lisp

(defun zip (x y) (cond ((null x) y)
                       ((null y) x)
                       (t (cons (car x) (cons (car y) (zip (cdr x) (cdr y)))))))
 
==> zip
 
(zip '(1 2 3 4) '(a b c d))
 
==> (1 a 2 b 3 c 4 d)

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

Lisp

(defun common-atom (x y)
   (cond ((null x) nil)
         ((null y) nil)
         ((member (car x) y) (cons (car x) (common-atom (cdr x) y)))
         (t (common-atom (cdr x) y))))
                     
 
==> common-atom
 
(common-atom '(1 2 3 4) '(3 5 2))
 
==> (2 3)

@zara11223344 · 12.11.2012, 12:22 **[ТС]**

спасибо.но уже поздно

@Nameless One · 12.11.2012, 12:37

По первой задаче:

Lisp

1 2	(defun interleave (x y) (mapcan #'list x y))

@_sg · 12.11.2012, 13:02

Lisp

(defun mix-elements (w v)
  (cond ((null w) v) ((null v) w) ((mi w v))))
 
(defun mi (w v)
  (when w (cons (car w) (mi v (cdr w)))))
 
> (mix-elements '(1 2 3) '(a b c))
(1 A 2 B 3 C)

@zara11223344 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 57
		1
	Функция: на основе двух списков сформировать новый список, в котором чередуются элементы исходных 12.11.2012, 10:58. Показов 2917. Ответов 4 Метки нет (Все метки) написать функцию которая на основе двух списков формирует новый список в котором чередуются элементы исходных Добавлено через 1 минуту и второе написать функцию аргументами которой являются два списка находящую все их общие атомы 0

@zara11223344 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 57
	12.11.2012, 12:22 [ТС]	3
	спасибо.но уже поздно 0

	12.11.2012, 13:02

Функция: на основе двух списков сформировать новый список, в котором чередуются элементы исходных

Решение