스키마에서 Mulitpule Caulated 값을 할당하는 방법

Question

이제 Scheme에서 내 네 번째 질문인데, 하위 기능 I asked earlier을 하루 동안 필요로 했으므로 Scheme에서 아직 꽤 새로운 것입니다.

기본적으로 이것은 2 개의 목록의 차이점을 반환합니다. 그 w

-l 사이의 거리가있어 당신이 (1,5) 및 (5,1)있어 말이 기능은 여기에 내가 무엇을 가지고 나에게 8을 반환해야합니다. 참고 : (list (- (car l) (car w)))를 (write .....)로 변경하면 함수가 작동하지만 입력으로 그 숫자를 사용하는 방법을 모르는 2 개의 숫자를 출력합니다 내 다른 기능.

는 오류없이하지만 이상한 물건 여기

(define (difference l w) ; calc heuristic function estimation 
    (if (> (car l) (car w)) 
     (list (- (car l) (car w))) 
     (if (< (car l) (car w)) 
     (list (- (car w) (car l))))) 
     (if (< (list-ref l 1) (list-ref w 1)) 
      (list (- (list-ref l 1) (list-ref w 1))) 
      (if (> (list-ref l 1) (list-ref w 1)) 
       (list (- (list-ref w 1) (list-ref l 1))))) 
    ) 

저를 반환, 그래서 목록에 넣어하려고 노력하지만 정말로 작동하지 않는 코드가 나에게

> (difference '(9 1) '(3 1)) 
#<procedure:...0\assigment 2.ss:50:3> 

을 반환 어떤 아이디어? 람다를 사용하려고하면 같은 일이 끝납니다.

Answer 1

모든 음 먼저 코드에 오타가있다 ...

(lits (- (car w) (car l))))) 

이 있어야 할 ...

(list (- (car w) (car l))))) 

편집 :겠습니까이 작품처럼 뭔가?

(define (difference lst1 lst2) 
    (if (> (car lst1) (car lst2)) 
     (+ (- (car lst1) (car lst2)) (difference (cdr lst1) (cdr lst2))) 
     (+ (- (car lst2) (car lst1)) (difference (cdr lst1) (cdr lst2)))) 
) 

Answer 2

나는 이전의 질문이지만이 글을 썼다. 내 솔루션은 여기

(define (difference l1 l2) 
    (apply + (map abs (map - l1 l2))))