Неожиданный результат функции (рекурсия)

Question

Мне нужно реализовать функцию, которая создает список из аргументов, передаваемых функции.

Вот мой код:

(defun lstbuilder (&rest args) 
    (if (eq (car args) NIL) 
     NIL 
     (cons (car args) 
      (lstbuilder (cdr args))))) 

Эта функция не работает правильно. Результаты:

(lstbuilder 'a 'b 'c 'd 'e) ;expected (a b c d e) 
(a (b c d e)) ;result 

Answer 1

Вы должны использовать (apply #'lstbuilder (cdr args)) для того, чтобы «знак» содержимого списка в качестве аргументов вызова функции.

Answer 2

Стиль

• Пожалуйста, используйте стандартный лисповское форматирование. Использование редактора поможет вам отступы Lisp-кода.

• Не помещайте только скобки на линии. Это просто освобождает пространство без выгоды.

• Более длинные имена получают - между словами: list-builder.

• Не используйте car и cdr для операций с списком. Используйте first и rest.

• Конец списка: endp.

Пример:

(defun list-builder (&rest args) 
    (if (endp args) 
     nil 
    (cons (first args) 
      (apply #'list-builder (rest args))))) 

Поскольку переменная args уже список, мы можем просто скопировать его:

(defun list-builder (&rest args) 
    (copy-list args)) 

Или мы можем просто повторно использовать функцию list, которая уже создает список его аргументов:

(setf (symbol-function 'list-builder) 
     #'list)