相关疑难解决方法(0)

我希望能够做到这样的事情:

(search data 
  list?
  (fn [x] (and (list? x) (= 4 (first x))))
  (fn [x] (and (set? x) (contains x 3))))

并以递归方式搜索嵌套数据结构data:

1. 首先是最浅的列表(例如,可能在一组集合中).
2. 然后在最浅层列表的列表中,第一个元素是谁4.
3. 然后在那些包含3的最浅集合的列表中.
4. 最后返回在步骤3中找到的项目列表.

在重新发明轮子之前,有没有一种标准的方法呢？