如何在Clojure中安全访问嵌套列表结构而不抛出异常？

需要检查嵌套列表结构中某个特定位置是否存在指定元素，但不清楚该结构的具体形态，要求不触发异常完成检查。

例如，预期:thing位于嵌套列表第三层：

(def st '(((:thing))))

可以通过(-> st first first first)访问，但如果列表深度不足会抛出异常。

当前的解决方案代码冗长易出错：

(if (list? st)
  (let [in1 (first st)]
    (if (list? in1)
      (let [in2 (first in1)]
        (if (list? in2)
          (= :thing (first in2))
          false))
      false))
  false)

希望找到无需异常捕获的更优方案。

解决方案 #

1. 实现安全版first函数 #

先封装一个不会抛出异常的safe-first，对非序列类型直接返回nil：

(defn safe-first [x]
  (if (seqable? x)
    (first x)
    nil))

这里用seqable?比list?更通用，能兼容所有可序列的类型（比如向量）。

借助这个函数，用线程宏就能简化检查逻辑——中间某一层如果不是序列，safe-first返回nil，最终结果自然不等于目标元素，不会触发任何异常：

(= :thing (-> st safe-first safe-first safe-first))

2. 通用化嵌套路径检查 #

如果需要支持任意深度的路径检查，可以写一个通用函数，接收嵌套结构、路径函数列表和目标元素：

(defn check-nested [structure path target]
  (loop [current structure
         fns path]
    (if (empty? fns)
      (= current target)
      (let [next-fn (first fns)
            next-val (if (seqable? current) (next-fn current) nil)]
        (if (nil? next-val)
          false
          (recur next-val (rest fns)))))))

使用示例：

(check-nested st [first first first] :thing) ; 返回 true
(check-nested '((:foo)) [first first first] :thing) ; 返回 false

3. 简洁的条件链式检查 #

针对固定深度的场景，也可以用and串联条件，确保每一层都是可序列类型后再取值：

(and (seqable? st)
     (seqable? (first st))
     (seqable? (first (first st)))
     (= :thing (first (first (first st)))))

内容的提问来源于stack exchange，提问作者matj1