Рекурсивные преобразования списков. Common Lisp

@Basnin · Регистрация: 04.12.2013

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

Используя приёмы рекурсии, выполнить такое преобразование.

Исходный многоуровневый любой список, вида

(a b (( c d e ) f g ( h i )) j k )

Образовать результирующий список вида

((a b) ( c d ) ( e f ) ( g h ) ( i g )) //перегруппировать элементы в подсписке по два до последнего парного.

@Catstail · 19.12.2013, 13:38

Сначала превращаем список в линейный:

Lisp

(defun mk-lin (lst)
  (cond ((null lst) nil)
        ((atom (car lst)) (cons (car lst) (mk-lin (cdr lst))))
        (t (append (mk-lin (car lst)) (mk-lin (cdr lst))))))
 
==> mk-lin
 
(mk-lin '(a b (( c d e ) f g ( h i )) j k ))
 
==> (a b c d e f g h i j k)

Потомо делаем объединение в пары:

Lisp

(defun mk-pair (lst)
  (cond ((null (cdr lst)) nil)
        (t (cons (list (car lst) (cadr lst)) (mk-pair (cddr lst))))))
 
==> mk-pair
 
(mk-pair '(1 2 3 4 5 6))
 
==> ((1 2) (3 4) (5 6))

теперь решение:

Lisp

(defun task (lst)
  (mk-pair (mk-lin lst)))
 
==> task
 
(task '(a b (( c d e ) f g ( h i )) j k))
 
==> ((a b) (c d) (e f) (g h) (i j))

@Basnin 0 / 0 / 0 Регистрация: 04.12.2013 Сообщений: 13
		1
	Рекурсивные преобразования списков. Common Lisp 19.12.2013, 02:51. Показов 997. Ответов 1 Метки нет (Все метки) Используя приёмы рекурсии, выполнить такое преобразование. Исходный многоуровневый любой список, вида (a b (( c d e ) f g ( h i )) j k ) Образовать результирующий список вида ((a b) ( c d ) ( e f ) ( g h ) ( i g )) //перегруппировать элементы в подсписке по два до последнего парного. 0

	19.12.2013, 13:38