Clojure：实现支持绑定映射的eval-with-bindmap函数

这问题挺有意思的！要实现能兼容任意顺序绑定、还支持相互递归函数的eval-with-bindmap，核心得靠Clojure里专门处理递归绑定的语法，同时搞定不同映射类型的兼容问题。下面给你捋捋具体思路和实现：

先明确我们要解决的两个核心痛点：

• 兼容多种映射类型：不管是array-map还是hash-map，都可以通过seq转换成统一的[[键 值] ...]键值对序列，这一步能帮我们抹平不同映射的格式差异。
• 支持相互递归绑定：普通的let肯定不行——它是按顺序求值绑定的，前面的绑定没法引用后面的。而letrec刚好是为这种“所有绑定共享同一作用域、允许相互引用”的场景设计的：它会先创建所有变量的占位绑定，再依次求值赋值，完美适配递归/相互递归的函数绑定需求。

1. 统一绑定格式：把输入的映射转换成键值对序列，再分别提取出所有要绑定的符号，以及对应的求值表达式。
2. 构造letrec执行代码：把符号和表达式交错成letrec要求的绑定向量，然后在letrec的作用域内执行目标表达式。
3. 封装成函数：用eval来执行我们构造好的letrec代码，这样就能在指定的绑定环境里求值目标表达式了。

(defn eval-with-bindmap [expr bindmap]
  (let [bindings (seq bindmap)
        syms (map first bindings)
        exprs (map second bindings)]
    (eval `(letrec ~(vec (interleave syms exprs))
             ~expr))))

先跑你给出的示例：

(eval-with-bindmap '(+ a b) '{a (+ 1 b) b 2})
;; => 5

再试试相互递归的函数场景：

(eval-with-bindmap '(f 3) '{f (fn [x] (if (zero? x) 1 (* x (g (dec x)))))
                            g (fn [x] (if (zero? x) 2 (* x (f (dec x)))))})
;; 计算过程：f(3) = 3*g(2) = 3*(2*f(1)) =3*(2*(1*g(0)))=3*(2*(1*2))=12
;; => 12

• eval会使用当前的命名空间，如果你的绑定符号和全局命名空间里的符号重名，可能会有冲突。如果需要严格隔离，可以考虑在临时命名空间里执行，但大部分日常场景下上面的实现足够用了。
• letrec允许绑定的表达式引用其他绑定，但要注意：别在绑定求值阶段就强制依赖其他绑定的具体值（比如{a b b 1}没问题，因为a的值是b这个符号，只有当a被使用时才会去取b的值；但如果是{a (inc b) b 1}也完全ok，因为(inc b)是延迟计算的，等求值a的时候b已经赋值完成了）。

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