方案编程标准偏差

Question

Scheme 中整数列表的标准偏差。

写两个表达式来解决这个问题：

• 第一个表达式，计算 > 每个数字与总体平均值之差的平方和
• 其次，使用该数字计算标准偏差。

到目前为止我的代码：

(define (average lst)
  (/ (apply + lst) (length lst)))

(define (std-dev lst)
    (sqrt
        (/  
            (innerFunction lst (average lst))
            (length lst)
        )
    )
)

(define (innerFunction lst avg)
    (if
        (null? lst)
        0
        (+ 
            (*
                (- (car lst) avg)
                (- (car lst) avg)
            )
            (innerFunction (cdr lst) average)
        )
    )
)

（错误是 “需要编号，但得到了#Closure”）。

我一周前才开始使用Scheme，所以对它不是很熟悉，你看到我的代码有什么问题吗？以及如何解决它，还有一种更简单的方法可以使用mapping 来实现这一点，就像我如何使用apply 简化average 一样？

Answer 1

您传递的是一个过程，而不是最后一行中的数字。试试这个：

(define (innerFunction lst avg)
  (if (null? lst)
      0
      (+  (* (- (car lst) avg)
             (- (car lst) avg))
          (innerFunction (cdr lst) avg)))) ; here was the error