我想使用 defmacro 来计算数字列表的平均值。它应该像这样运行：
user=> (avg 1 2 3 4 5 6)
3.5
我的代码是：
(defmacro ave [& number]
`(float `(/ `(reduce + ~number) `(count ~number))))
但我得到了一个错误：
**ClassCastException clojure.lang.Cons cannot be cast to java.lang.Number clojure.lang.RT.floatCast (RT.java:1262)**
我该如何解决？谢谢
【问题讨论】：
正如 amalloy 所建议的，最好的解决方案是函数：
(ns clj.core
(:require [clojure.string :as str] )
(:use tupelo.core))
(defn avg
"Compute the average of 1 or more vals."
[& values]
(when (zero? (count values))
(throw (IllegalArgumentException. "avg: error - at least 1 value required")))
(let [total (apply + values)
result (double (/ total (count values))) ]
result))
这是测试：
(ns tst.clj.core
(:use clj.core
clojure.test
tupelo.core))
(deftest t-avg
(is (thrown? IllegalArgumentException (avg)))
(is (= 1.0 (avg 1)))
(is (= 1.5 (avg 1 2)))
(is (= 2.0 (avg 1 2 3)))
(is (= 2.5 (avg 1 2 3 4))))
请注意，该函数比宏更强大，因为宏不能作为参数传递给高阶函数（例如过滤器、映射等）。
【讨论】：
您应该使用一种语法引用来包装整个表达式，并为您的数字取消引用拼接作为列表参数。除此之外，由于reduce 和count 接受列表作为参数，我使用list 来包装它们。所以，试试：
(defmacro ave [& number]
`(float(/ (reduce + (list ~@number)) (count (list ~@number)))))
REPL 中的结果：
user=> (ave 1 2 3 4 5 6)
3.5
更新：根据amalloy在cmets中指出的错误，这是我的第二个版本：
(defmacro ave [& number]
`(let [ns# (list ~@number)]
(float (/ (reduce + ns#) (count ns#)))))
我在 REPL 中的测试：
user=> (ave (do (println "Doing a lot of work...") 1) 2 3 4 5 6)
Doing a lot of work...
3.5
【讨论】：
number：例如像(ave (do (println "Doing a lot of work...") 1) 2 3 4 5 6) 一样尝试.
ave [1 2 3 4 5 6]，然后将代码更改为 (defmacro ave [vector] 、(float (/ reduce + (~@vector)) (count (~@ vector)))) 会怎样。但是我收到一个错误，例如传递错误数量的参数。我不完全理解为什么我们将列表放在 ~@ 之前。谢谢！