Схема: как удалить элемент только на втором уровне списка?

Question

я сделал с

1) delete element for the top-level of a list

2) delete element for a nested list no matter how deep the list is.

Но как решить эту проблему ниже:

Написать функцию Scheme, которая принимает список в качестве параметра и возвращает список, идентичный списку параметров, за исключением того, что удаляется второй элемент верхнего уровня. Если данный список не имеет двух элементов, функция должна возвращать().

И в этом вопросе я не знаю, как запретить рекурсию на 3-й уровень и удалить только элемент на 2-м уровне входного списка.

Answer 1

Итак, я считаю, что у вас есть список (a b c d), где все символы могут быть любыми, даже подсписками. Ваш код должен уменьшить это значение до (a c d). Это правильно?

Вот подсказка:

(define (remove-2nd lst) 
    (if (or (null? <??>) 
      (null? <??>)) 
     <??> 
     (cons <??> <??>)))