Clojure"案例"不区分不同的符号

Question

这段代码有效：

(case '-
    + :plus
    - :minus
    :unknown)
==> :minus

这也是：

(case '-
    + :plus
    '- :minus
    * :times
    :unknown)
==> :minus

这不会：

(case '-
    '+ :plus
    '- :minus
    * :times
    :unknown)
==> java.lang.IllegalArgumentException: Duplicate case test constant: quote

谷歌搜索此错误会导致此处的日志文件。但是，这家伙只是说它删除了引号。

看起来 case 语句将不同的符号视为相同的值。为什么会这样？

蒂亚。

Answer 1

来自case文档：

Each clause can take the form of either:
test-constant result-expr
(test-constant1 ... test-constantN)  result-expr

'-扩展到(quote -)。

因此，带引号的情况下的子句扩展为：

(quote -) :minus
(quote +) :plus

如您所见，符号"quote"显示为实际的测试常量，当您同时引用+和-时，它会出现两次。

评估实际符号quote case可能会澄清一些事情：

user=> (case 'quote '+ :plus - :minus :unknown)
:plus
user=> (case 'foo (foo +) :plus - :minus :unknown)
:plus