Lisp 中的 (定义 (平均 ....))

我只是在玩scheme/lisp，并正在考虑如何纠正我自己的定义average。我不确定如何做一些我认为需要的事情。

• 定义一个接受任意数量参数的过程
• 计算这些参数
• 将参数列表传递给 (+) 以将它们加在一起

有人有定义的例子吗average？我似乎对 LISP 的了解不够，无法进行网络搜索来获取我正在寻找的结果。

这个定义将是一个非常简单的单行，但在不破坏它的情况下，您应该研究一下：

• 一个“休息”的论点——这个(define (foo . xs) ...xs...)定义foo作为一个接受任意数量参数的函数，它们可以作为列表使用，该列表的值是xs.

• length返回列表的长度。

• apply接受一个函数和一个值列表，并将该函数应用于这些值。

当你明白了这一点后，你就可以追求更多：

• see the foldl函数以避免在可能非常大的列表上应用列表（这在某些参数列表长度有限的实现中可能很重要，但在 Racket 中不会有太大区别）。

• 请注意，Racket 有精确的有理数，您可以使用exact->inexact制作更高效的浮点版本。

剧透是：

• (define (average . ns) (/ (apply + ns) (length ns)))

• 让它需要一个参数：(define (average n . ns) (/ (apply + n ns) (add1 (length ns))))

• Use foldl: (define (average n . ns) (/ (foldl + 0 (cons n ns)) (add1 (length ns))))

• 使其使用浮点数：(define (average n . ns) (/ (foldl + 0.0 (cons n ns)) (add1 (length ns))))