3

我遇到了一些4Clojure问题,并在我的一些代码中遇到了一些奇怪的行为。经过进一步调查,罪魁祸首似乎是使用了报价宏与列表功能。为什么这在下面的代码中很重要,为什么会产生不正确的结果?

user=> (= (class '(/ 1 2)) (class (list / 1 2)))
true
user=> (def a '(/ 1 2))
#'user/a
user=> (def b (list / 1 2))
#'user/b
user=> (class a)
clojure.lang.PersistentList
user=> (class b)
clojure.lang.PersistentList
user=> (apply (first a) (rest a))
2
user=> (apply (first b) (rest b))
1/2
user=> (class (first a))
clojure.lang.Symbol
user=> (class (first b))
clojure.core$_SLASH_
4

2 回答 2

9
'(/ 1 2)

类似于:

(list '/ 1 2)

当你不引用/时,你会得到它的值,这是内置的除法函数,而不是符号。

于 2013-02-23T06:26:46.680 回答
2

不幸的是,您已将符号对象用作表达式中的函数(apply (first a) (rest a))。符号对象在 map 中查找自身的值作为键:

('/ {'+ :plus '/ :slash '- :minus} :not-found)
=> :slash

('/ {'+ :plus '$ :dollar '- :minus} :not-found)
=> :not-found

('/ 1 :not-found)
=> :not-found

('/ 1 2)
=> 2
于 2013-02-23T06:42:17.807 回答