Рекурсия. Лисп

@s2dentishe · Регистрация: 10.01.2010

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

Добрый день! Есть такая задача
Дан список (a b c d). Необходимо преобразовать его в список (a (b) c (d)) используя рекурсию.
Делаю так
(defun mf1 (l)
(cond
((null l) nil)
(t (cons (cons (car l) (list (cadr l))) (mf1 (cddr l)) ) )
)
)
вбиваем
-->(mf1 '(a b c d))

а по факту
((a b) (c d))

@VH · 22.02.2011, 19:19

Lisp

(defun F (L)
 (cond
  ((null L) nil)
  ((null (cdr L)) L)
  (T
   (cons
    (car L)
    (cons
     (list (cadr L))
     (F (cddr L)))))))

@Catstail · 25.01.2013, 19:24

Lisp

(defun task (lst &optional flg)
  (cond ((null lst) Nil)
        ((null flg) (cons (car lst) (task (cdr lst) (not flg))))
        (t (cons (list (car lst)) (task (cdr lst) (not flg))))))
 
==> task
 
(task '(a b c d e f))
 
==> (a (b) c (d) e (f))
 
;;или так (HomeLisp):
 
(defun task (lst)
 (let ((res nil) (flg nil))
   (iter (for i in lst) (if flg (collecting (list i) into res) (collecting i into res))
    (setq flg (not flg))
   ) res )) 
 
==> task
 
(task '(a b c d e f))
 
==> (a (b) c (d) e (f))

@_sg · 25.01.2013, 21:47

Lisp

(defun list-cadr (w)
  (if (cdr  w)
      (cons (car w) (cons (list (cadr w)) (list-cadr (cddr w))))
      w))
 
> (list-cadr '(a b c d))
(A (B) C (D))
> (list-cadr '(a b c d e))
(A (B) C (D) E)

@s2dentishe 32 / 32 / 9 Регистрация: 10.01.2010 Сообщений: 276
		1
	Рекурсия. Лисп 22.02.2011, 17:57. Показов 2054. Ответов 3 Метки нет (Все метки) Добрый день! Есть такая задача Дан список (a b c d). Необходимо преобразовать его в список (a (b) c (d)) используя рекурсию. Делаю так (defun mf1 (l) (cond ((null l) nil) (t (cons (cons (car l) (list (cadr l))) (mf1 (cddr l)) ) ) ) ) вбиваем -->(mf1 '(a b c d)) а по факту ((a b) (c d)) 0

	25.01.2013, 21:47