Clojure：确定地图值的函数

Question

这个问题我越想越觉得不对……

我在我的程序中定义了类似“地图构造函数”的东西。这背后的想法是我有一个通用的地图结构来处理一些“项目”，但我想为特定类型的项目强制执行一些默认值。

我遇到的问题是这个“地图构造函数”有一个 k-v 对，并且该对的值应该由使用该地图的函数确定（在下面的示例中可能会更清楚）。

我的第一个想法是在值中引用一个表达式，然后在上述函数中对其执行eval。第二个想法是将值替换为fn，但这似乎返回类似于引用表达式的内容。

让我试着描述一下这个问题：

• 模型生成的地图应该类似于 {:a 1 :b 2 :c 3}

• 构造函数类似于

  (defn cons-field [b]
    {:a (fn [name] (str name "!"))
     :b b
     :c "default"})
  

• 项目已创建(def a-field (cons-field 5))

• 使用地图的调用函数类似于

   (defn the-function [name field]
     (str (get-in field [:a])))
  

现在我需要的是这个 :a 的值作为 'the-function' 中参数名称的函数。当然最后一个功能不起作用，我不确定它是否是正确的方法。 ':a' 键并不总是fn；有时它只是一个字符串文字。有什么想法吗？

干杯！

Answer 1

这就是我在 A. Webb 和 Jeremy Heiler 的 cmets 之后解决这个问题的方法。

初始构造函数改成这样：

(defn cons-field [b]
  {:a nil ; either delete completely or comment that
          ; the case will be handled by the caller
   :flag xx ; true or :case-qualifier
   :b b
   :c "default"})

调用函数改成这样：

(defn the-function [name field]
  (let [case-q (:flag field)]
    (cond
      (= case-q :case-qualifier) (get-name name) ; you can have many different cases
                                              ; conciser using constants for these qualifiers
      (...) ()))) ; else as normal

然后最初放入地图的逻辑进入不同的函数：

(defn get-name [name] (str name "!"))

希望这对其他人有帮助:)

Answer 2

根据您发布的内容，无法真正理解您的问题。我能为您做的就是告诉您您提供的代码做了什么，并猜测您希望它做什么。

(def r (cons-field 5)) 使用 (r :b) = 5、(r :c) = "default" 和 (r :a) = (fn [name] (str name "!")) 创建一个哈希映射 r。如您所见，(r :a) 的结果和(r :c) 的结果都与 r 或 5 无关。

如果上面描述的结果是你想要的，那么做一些重构是合乎逻辑的：

(def default-field {:a (fn [name] (str name "!"))
                    :c "default"})

(def cons-field (partial assoc default-field :b))

关于the-function：对(get-in field [:a]) 的调用与(field :a) 相同，将返回函数(fn [name] ...)。 the-function 将使用 str 对该 fn 进行字符串化，并且很可能返回类似“user.fn$23092....”的内容

如果您希望 the-function 返回调用 (fn [name] ...) 的结果并将名称传递给函数，您需要更改您的 the-function 如下：

(defn the-function 
  [name field]
  (str ((field :a) name)))

如果你想让the function根据:a的实际值返回别的东西，你可以检查它是否是一个函数并用名字调用它，否则返回值。

(defn the-function
  [name field]
  (when-let [v (field :a)]
    (or (when (fn? v)
          (v name))
        v)))

现在阅读您自己的答案，我更加困惑您要解决的实际问题是什么，但我希望这个答案可以提供帮助。