如何使用CASE或CORE.Match使用重新匹配

Question

我正在尝试在Clojure中实现模式匹配。我的偏爱是使用core.Match在给定的正则表达式模式上匹配。我尝试了一下：

(defn markdown->html [markdown-line]
  (match [markdown-line]
    [(boolean (re-matches #"#\s+\w+" markdown-line))] (str "<h1>")))

这甚至无法正确编译。我透露了一个案例的条件：

(defn markdown->html [markdown-line]
  (case markdown-line
    (boolean (re-matches #"#\s+\w+" markdown-line)) (str "<h1>")))

但是，当我使用此调用时，这并没有给我预期的结果：（markdown-＆gt; html“＃foo”）>

但是，这可行！

(defn markdown->html [markdown-line]
  (if
    (boolean (re-matches #"#\s+\w+" markdown-line)) (str "<h1>")))

对于上面的所有测试，我会像这样调用该功能：（Markdown-＆gt; html“＃foo”）

有人知道我在做什么错吗？

Answer 1

请参阅

未评估测试剂。他们必须是编译时间
文字，不必引用。

例如：

(case 'y
  y "y"
  c "c"
  (x z) "x or z"
  (a b) "a or b"
  "default")

和clojure.core.core.match/match是相似的，所以我想说这两个都是错误的工具。

如果您要编写将github markdown转换为html的功能，请检查 可以帮助您：

(clojure.string/replace "# Foo bar
# Biz baz" #"#\s+([\w ]*)" (fn [[result group]] (str "<h1>" group "</h1>")))

=> "<h1>Foo bar</h1>\n<h1>Biz baz</h1>"

甚至更好，使用$组：

(clojure.string/replace "# Foo bar
# Biz baz" #"#\s+([\w ]*)" "<h1>$1</h1>")

=> "<h1>Foo bar</h1>\n<h1>Biz baz</h1>"

顺便说一句，可以这样改进您的示例：

(defn markdown->html [markdown-line]
  (when (re-matches #"#\s+\w+" markdown-line) "<h1>"))

(markdown->html "# Foo")
=> "<h1>"

如果缺少 else 分支，所以更好时；您不必使用boolean，因为false或nil被视为逻辑false，任何其他值都是逻辑的，没有将一个字符串包裹在str中的原因。

编辑：标题功能＆lt; h1＆gt; - ＆lt; h6＆gt;：

(def text "# Foo bar
## Biz baz
### Foo baz
## Biz foo")

(clojure.string/replace text
                        #"(#{1,6})\s+([\w ]*)"
                        (fn [[result group1 group2]]
                          (let [tag (str "h" (count group1) ">")]
                            (str "<" tag group2 "</" tag))))

=> "<h1>Foo bar</h1>\n<h2>Biz baz</h2>\n<h3>Foo baz</h3>\n<h2>Biz foo</h2>"