(在Lisp中定义(平均…)

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

• 一个“休息”的论点 (define (foo . xs) ...xs...) 定义 foo 作为一个函数,它接受任意数量的参数,并且它们可以作为 xs .

• length 返回列表的长度。

• apply 获取函数和值列表,并将函数应用于这些值。

当你得到这个,你可以去更多:

• 看到了吗 foldl 函数以避免在可能非常大的列表上应用列表(在某些参数列表长度有限的实现中,这可能很重要,但在Racket中不会有太大区别)。

• exact->inexact 使浮点版本更有效。

扰流器是:

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

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

• 使用 福尔德尔 (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))))

在Common Lisp中,您可以执行以下操作:

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

虽然我不知道 &rest 在所有Lisp实现中都可用。参考 here .

将该代码放入GNU CLISP会导致:

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

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)))

在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))))

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

在方案R5RS中:

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