задание5

@powervova · Регистрация: 18.12.2013

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

Используя рекурсию в Common Lisp сделать следующие преобразования:
Получая в качестве исходных данных 3 списка вида:
1. (a b c d (e f) (g h) i j)
2. (X Y Z V W T S Q)
3. (1 0 0 1 1 0 1 1)
создать список вида:
(a Y Z d (e f) T i j),
то есть, заменить елементы первого списка елементами второго списка, в тех позициях, в которых в третем списке стоят нули.

@Catstail · 18.12.2013, 21:55

Гораздо проще сделать это функционалом mapcar:

Lisp

(defun task (lst1 lst2 scala)
  (mapcar #'(lambda (x y z) (if (zerop z) y x)) lst1 lst2 scala))
 
==> task
 
(task '(a b c d (e f) (g h) i j) '(X Y Z V W T S Q) '(1 0 0 1 1 0 1 1))
 
==> (a y z d (e f) T i j)

Добавлено через 2 минуты
Но можно и рекурсивно:

Lisp

(defun task (lst1 lst2 scala)
  (cond ((or (null lst1) (null lst2) (null scala)) nil)
        ((zerop (car scala)) (cons (car lst2) (task (cdr lst1) (cdr lst2) (cdr scala))))
        (t (cons (car lst1) (task (cdr lst1) (cdr lst2) (cdr scala))))))
  
 
==> task
 
(task '(a b c d (e f) (g h) i j) '(X Y Z V W T S Q) '(1 0 0 1 1 0 1 1))
 
==> (a y z d (e f) T i j)

@powervova · 18.12.2013, 21:59 **[ТС]**

Сообщение от Catstail

Гораздо проще сделать это функционалом mapcar:

Lisp

(defun task (lst1 lst2 scala)
  (mapcar #'(lambda (x y z) (if (zerop z) y x)) lst1 lst2 scala))
 
==> task
 
(task '(a b c d (e f) (g h) i j) '(X Y Z V W T S Q) '(1 0 0 1 1 0 1 1))
 
==> (a y z d (e f) T i j)

Добавлено через 2 минуты
Но можно и рекурсивно:

Lisp

(defun task (lst1 lst2 scala)
  (cond ((or (null lst1) (null lst2) (null scala)) nil)
        ((zerop (car scala)) (cons (car lst2) (task (cdr lst1) (cdr lst2) (cdr scala))))
        (t (cons (car lst1) (task (cdr lst1) (cdr lst2) (cdr scala))))))
  
 
==> task
 
(task '(a b c d (e f) (g h) i j) '(X Y Z V W T S Q) '(1 0 0 1 1 0 1 1))
 
==> (a y z d (e f) T i j)

спасибо

@powervova 1 / 1 / 0 Регистрация: 18.12.2013 Сообщений: 17
		1
	задание5 18.12.2013, 21:29. Показов 1009. Ответов 2 Метки нет (Все метки) Используя рекурсию в Common Lisp сделать следующие преобразования: Получая в качестве исходных данных 3 списка вида: 1. (a b c d (e f) (g h) i j) 2. (X Y Z V W T S Q) 3. (1 0 0 1 1 0 1 1) создать список вида: (a Y Z d (e f) T i j), то есть, заменить елементы первого списка елементами второго списка, в тех позициях, в которых в третем списке стоят нули. 0

	18.12.2013, 21:59

задание5

Решение