Написать функцию которая по линейныму списку вида ( . a s w c b) строит сложный список вида (.) a) s) w) c) b)

@nickmk · Регистрация: 21.10.2013

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

Написать функцию которая по линейныму списку вида ( ... a s w c b) строит сложный список вида ((((((...) a) s) w) c) b).

@Catstail · 22.10.2013, 13:13

Lisp

(defun task (lst &optional r)
   (cond ((null lst) (car r))
         (t (task (cdr lst) (list (append r (list (car lst))))))))
 
==> task
 
(task '(1 2 3 4 5))
 
==> (((((1) 2) 3) 4) 5)

@_sg · 23.10.2013, 18:54

Lisp

(defun annex (w)
  (reduce #'list (cons (list (car w)) (cdr w))))
 
> (annex '(a b c d e))
(((((A) B) C) D) E)

Добавлено через 23 секунды

Lisp

(defun annex (w &optional acc)
  (if (null w)
      acc 
      (annex (cdr w) (list (reverse (cons (car w) acc))))))
 
> (annex '(a b c d e))
((((((A) B) C) D) E))

Добавлено через 17 секунд

Lisp

(defun annex (w &optional acc)
  (cond ((null w) acc)
        ((annex (cdr w) (list (reverse (cons (car w) acc)))))))
 
> (annex '(a b c d e))
((((((A) B) C) D) E))

Добавлено через 19 секунд

Lisp

(defun annex (w)
  (let ((r (list (car w))))
    (dolist (i (cdr w) r)
      (setq r (cons r (list i))))))
 
> (annex '(a b c d e))
((((((A) B) C) D) E))

@nickmk 1 / 1 / 0 Регистрация: 21.10.2013 Сообщений: 22
		1
	Написать функцию которая по линейныму списку вида ( . a s w c b) строит сложный список вида (.) a) s) w) c) b) 22.10.2013, 12:56. Показов 949. Ответов 2 Метки нет (Все метки) Написать функцию которая по линейныму списку вида ( ... a s w c b) строит сложный список вида ((((((...) a) s) w) c) b). 0

	23.10.2013, 18:54

Опции темы