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

Question

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

• 定义一个接受任意数量参数的过程，对
• 这些参数进行计数，
• 将参数列表传递给（+）以将它们相加。

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

Answer 1

该定义将是一个非常简单的单行代码，但在不破坏它的情况下，您应该查看：

• 一个“rest”参数 - 这个 (define (foo . xs) ...xs...) 将 foo 定义为一个接受任意数量参数的函数，并且它们可以作为 xs 的值的列表提供。

• length 返回列表的长度。

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

当您明白这一点时，您可以了解更多信息：

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

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

---

---

---

---

剧透如下：

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

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

• < p>使用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))))

  使其

Answer 2

在 Common Lisp 中，看起来你可以这样做：

(defun average (&rest args)
  (when args
    (/ (apply #'+ args) (length args))))

尽管我不知道 &rest 是否适用于 Lisp 的所有实现。请参考此处。

将该代码放入 GNU CLISP 中会得到：

[1]> (defun average (&rest args)
       (when args
         (/ (apply #'+ args) (length args))))
AVERAGE
[2]> (average 1 2 3 4 5 6)
7/2

为 3.5（正确）。

Answer 3

Common Lisp 中的两个版本：

(defun average (items)
  (destructuring-bind (l . s)
      (reduce (lambda (c a)
                (incf (car c))
                (incf (cdr c) a)
                c)
              items
              :initial-value (cons 0 0))
    (/ s l)))

(defun average (items &aux (s 0) (l 0))
  (dolist (i items (/ s l))
    (incf s i)
    (incf l)))

Answer 4

在Scheme中，我更喜欢使用列表而不是“rest”参数，因为rest参数使得实现如下所示的过程变得困难：将

> (define (call-average . ns)
     (average ns))
> (call-average 1 2 3) ;; => BANG!

任意数量的参数打包到列表中允许您对参数执行任何列表操作。您可以用更少的语法和更少的混乱做更多的事情。这是我的 average 方案版本，它采用“n”个参数：

(define (average the-list)
  (let loop ((count 0) (sum 0) (args the-list))
    (if (not (null? args))
        (loop (add1 count) (+ sum (car args)) (cdr args))
        (/ sum count))))

这是 Common Lisp 中的相同过程：

(defun average (the-list)
  (let ((count 0) (sum 0))
    (dolist (n the-list)
      (incf count)
      (incf sum n))
    (/ sum count)))

Answer 5

在方案R5RS中：

(define (average . numbers)  
    (/ (apply + numbers) (length numbers)))