Определите функцию для преобразования списка по принципу

@jack_sparrow228 · Регистрация: 09.04.2015

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

Определите функцию для преобразования списка по принципу:
(A B C) -> (A(B(C)))
С чего вообще начать? Как должна выглядеть эта функция? Помогите пожалуйста)

@_sg · 28.11.2015, 09:10

Lisp

(defun annex (w)
  (reduce #'list (butlast w) :from-end t :initial-value (last w)))
 
> (annex '(a b c d e))
(A (B (C (D (E)))))

@Catstail · 28.11.2015, 22:06

Простая рекурсия:

Lisp

(defun task (lst)
  (cond ((null (cdr lst)) lst)
        (t (cons (car lst) (list (task (cdr lst)))))))
 
==> task
 
(task '(1 2 3 4))
 
==> (1 (2 (3 (4))))

@_sg · 28.11.2015, 22:44

как вариант:

Lisp

(defun annex (w)
  (if (cdr w) (cons (car w) (list (annex (cdr w)))) w))
 
> (annex '(1 2 3 4))
(1 (2 (3 (4))))

Добавлено через 1 минуту

Lisp

(defun annex (w &aux (d (cdr w)))
  (if d (cons (car w) `(,(annex d))) w))
 
> (annex '(1 2 3 4))
(1 (2 (3 (4))))

@jack_sparrow228 1 / 1 / 0 Регистрация: 09.04.2015 Сообщений: 21
		1
	Определите функцию для преобразования списка по принципу 28.11.2015, 08:49. Показов 1308. Ответов 3 Метки нет (Все метки) Определите функцию для преобразования списка по принципу: (A B C) -> (A(B(C))) С чего вообще начать? Как должна выглядеть эта функция? Помогите пожалуйста) 0

	28.11.2015, 22:44

Определите функцию для преобразования списка по принципу

Решение