제도 전체 값 유지

Question

다음 코드에서 avg 및 avg2 값은 코드 진행에 따라 변경됩니다. 함수 외부에서 값을 정의하지 않고 함수 전체에서 값이 일정하도록하려면 어떻게해야합니까? 도우미 함수를 사용해야합니까?

(define (covariance-list x y) 
    (let ((avg (average x))) 
    (let ((avg2 (average y))) 
    (if (null? x) 
     '() 
     (cons (* (- (car x) avg)(- (car y) avg2)) 
      (covariance-list (cdr x) (cdr y))))))) 

Answer 1

한 가지 방법은 보조 기능이 될 것이다 :

(define (covariance-list x y) 
    (define (covariance-list-aux x y avg-x avg-y) 
    (if (null? x) 
     '() 
     (cons (* (- (car x) avg-x) (- (car y) avg-y)) 
      (covariance-list-aux (cdr x) (cdr y) avg-x avg-y)))) 
    (covariance-list-aux x y (average x) (average y))) 

Answer 2

저는 함수의 매개 변수에 따라 달라 지므로 상수를 사용하지 않으려한다고 생각합니다. 아마 각각의 재귀 호출 중에 다시 계산되지 않기를 원할 것입니다.

(define (covariance-list x y) 
(let ((avg (average x)) 
     (avg2 (average y))) 
    (let loop ((x x) 
       (y y)) 
     (if (null? x) 
     '() 
      (cons (* (- (car x) avg) 
        (- (car y) avg2)) 
       (loop (cdr x) (cdr y)))))))