Scheme Programming 표준 편차

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과 같이 단순화 된 방법이 더 간단합니다. average을 apply으로 변경 했습니까?

Answer 1

마지막 줄에 숫자가 아닌 프로 시저를 전달하고 있습니다. 이것을 시도하십시오 :

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