与cond匹配的类型

Question

尝试找到比cond更合适的宏来执行谓词函数的匹配。

目前，我正在做这样的事情：

(cond
  (map? x)        (do-map-code x)
  (sequential? x) (do-seq-code x)
  (keyword? x)    (do-kw-code x)
  :else              (do-generic-code x))

在一个理想的世界中，我想将数据作为每个左手条件的第一个参数，允许我写这个。

(cond x
  map?        (do-map-code x)
  sequential? (do-seq-code x)
  keyword?    (do-kw-code x)
  :else       (do-generic-code x))

有点像向后condp。

作为参考，我知道我可以将condp与type一起使用，并检查类型值。我只是想知道这个宏是否存在。

Answer 1

您可以使用condp执行此操作：

(condp #(%1 %2) x
  map?        (do-map-code x)
  sequential? (do-seq-code x)
  keyword?    (do-kw-code x)
  (do-generic-code x))