Как вы находите список списка в списке схем?

Question

Я работаю над заданием, и мне нужно найти список внутри списка. Например, если у нас есть

(has-list? '(1 2 (3 4) 5))

чем он вернет true, потому что (3 4) - это список внутри большего списка.

Answer 1

Функция (list? l) вернет #t, если l является списком, и #f, если это не

(define (has-list l)
  (if (null? l)
      _____
      (or (________) (_________))))

, заполните пробелы!

Answer 2

Что ж, если в реализации Scheme имеется библиотечная функция, подобная any, которая ожидает предикат и список в качестве аргументов для проверки существования элемента в списке, удовлетворяющего предикату, вы можете просто написать (any list? '(1 2 (3 4) 5))в противном случае заполните заготовки, оставленные для вас.