LISP Списки подсети

Question

Функция, которая удаляет только первый элемент каждого подсписок в списке. Например,

Тест 1:

• Список является (10 (1 2 3) (90 100) 122 156)
• Вывод должен быть: (10 (2 3) (100) 122 156)

Я знаю, как удалить элемент из списка, но я не знаю, какой функция используется для удаления элемента из подписок

Answer 1

(defun butfirst (lst) 
    (mapcar 
    (lambda (e) (if (consp e) (cdr e) e)) 
    lst)) 

(butfirst '(10 (1 2 3) (90 100) 122 156)) 
=> (10 (2 3) (100) 122 156) 

Answer 2

еще одно предложение: без итерации, с рекурсивным алгоритмом.

(defun butfirst (lst) 
    (cond 
    ((null lst) '()) 
    ((consp (car lst)) 
    (cons (cdr (car lst)) 
      (butfirst (cdr lst)))) 
    (t (cons (car lst) 
      (butfirst (cdr lst))))))