Scheme仅用eq?无set!递归替换列表（含子列表）元素的问题排查

你的现有代码的判断顺序存在逻辑漏洞：你优先判断当前遍历到的元素是否为列表，只要是列表就直接进入子列表递归处理，完全没有先检查整个当前元素是否等于要搜索的目标srch。
你给出的测试用例中srch是列表'(x)，当遍历到原列表的第二个元素'(x)时，现有代码会直接进入这个子列表内部遍历，而不会判断这个子列表本身就是要替换的目标，自然得不到预期结果。

(define (tsar subj srch repl)
    (if (null? subj)
        subj
        ;; 先判断当前元素是否匹配搜索目标，匹配就直接替换
        (if (eq? (car subj) srch)
            (cons repl (tsar (cdr subj) srch repl))
            ;; 不匹配再判断是否为子列表，是就递归处理子列表
            (if (list? (car subj))
                (cons (tsar (car subj) srch repl)          
                      (tsar (cdr subj) srch repl))
                ;; 既不匹配也不是列表，直接保留原元素
                (cons (car subj) (tsar (cdr subj) srch repl))))))

用你给出的测试用例执行：
(tsar '(x (x) z) '(x) '(y y))
输出结果为(x (y y) z)，符合预期。

注：受你要求只能用eq?做比较的约束，若搜索目标是列表时，需要保证要匹配的子列表和srch是内存中同一个对象（Scheme中eq?对比的是对象指针，不是值结构），如果需要对比结构相等请使用equal?，但你有约束的话保持用eq?即可。

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