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

[s2dentishe]

Добрый день! Есть такая задача
Дан список (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))
и я не пойму почему?

[netrino]

Не специалист по лиспу, но

(defun transform (a-list)
  (cond
    ((null (cdr a-list)) nil)
    (T (let ((next-cell (cdr a-list)))
	 (rplacd a-list (cons next-cell (cdr next-cell)))
	 (rplacd next-cell nil)
	 (transform (cddr a-list))))))

[s2dentishe]

выводит на результат nil, список остается прежним

[netrino]

Возвращает Nil, это да, но список меняется, я проверял.
Вы уверены, что список сохраняется между вызовами?

(let ((a-list '(1 2 3 4 5)))
  (transform a-list)
  (print a-list))

[s2dentishe]

разобрался, спасибо большое за помощь!