пусть x и y СПИСКИ одинаковой структуры

@joker13234 · Регистрация: 26.12.2012

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

Определить функцию (пары x И y) создающую список из соответствующих пар списков x и y.
например: (пары '(1 (2 3)) '(a (b c)))
результат: (1 a (2 b 3 c))

@VH · 26.12.2012, 12:26

Lisp

(defun F (X Y)
 (if X
  (if (atom (car X))
   (cons (car X) (cons (car Y) (F (cdr X) (cdr Y))))
   (cons (F (car X) (car Y)) (F (cdr X) (cdr Y))))))

@Catstail · 26.12.2012, 13:18

Или так:

Lisp

(defun task (x y)
  (apply 'append (mapcar #'(lambda (a b) (if (atom a) (list a b) (list (task a b)))) x y)))
 
==> task
 
(task '(1 (2 3)) '(a (b c)))
 
==> (1 a (2 b 3 c))

@joker13234 0 / 0 / 0 Регистрация: 26.12.2012 Сообщений: 25
		1
	пусть x и y СПИСКИ одинаковой структуры 26.12.2012, 11:35. Показов 643. Ответов 2 Метки нет (Все метки) Определить функцию (пары x И y) создающую список из соответствующих пар списков x и y. например: (пары '(1 (2 3)) '(a (b c))) результат: (1 a (2 b 3 c)) 0

	26.12.2012, 13:18