이 Scheme 코드를 라켓으로 변환하는 방법

Question

나는 scheme을 처음 사용하고 있습니다. 이것은 MIT의 SICP 과정의 코드 샘플입니다.

(define (+ x y) 
    (if (= x 0) 
     y 
     (+ (-1+ x) (1+ y)))) 

어떻게 이것을 라켓 코드로 변환합니까? DrRacket을 코드 실행에 사용하고 있기 때문에 라켓으로 변환하고 싶습니다. 그것은 지금까지는 작동했지만 구성표의 증가 연산자에 대해 불평했다. 내가 할

오류는 다음과 같습니다

http://www.youtube.com/watch?v=dlbMuv-jix8&t=1325

Answer 1

이가 라켓에 잘 작동합니다 :

(define (add x y) 
    (if (= x 0) 
     y 
     (add (sub1 x) (add1 y)))) 

일부 의견 :

• 이름이 + 인 경우 문제가 될 수 있습니다. 위와 충돌하기 때문에 th에서 Scheme의 프리미티브 가산 연산; add과 같은 다른 이름을 사용하면 더 간단합니다 (첫 번째 오류가 수정 됨)
• -1+은 Racket의 절차가 아니므로 sub1으로 바꿉니다 (두 번째 오류가 수정 됨). 선택적으로이 프로 시저의 별칭을 다음과 같이 정의 할 수 있습니다. (define -1+ sub1)
• 1+은 Racket의 프로 시저가 아니므로 add1으로 바꿉니다. 선택 사항으로,이 같은,이 절차에 대한 별명을 정의 할 수 있습니다 : (define 1+ add1)
• 선택적 : 대신 (= x 0)의 당신은 당신이 DrRacket에서 사용하는 언어는 무엇 (zero? x)

Answer 2

해결하려면 :

1. define-values: cannot change constant variable: +
2. 여기 reference to undefined identifier: -1+

내가로부터 배우고 비디오에 대한 링크입니다 두 번째 오류, 찬 ge (-1+ x) ~ (- x 1) 및 (1+ y) ~ (+ y 1). This answer은 첫 번째 오류에 도움이됩니다. 당신이 -1+ 및 1+를 사용하려면

, 당신은 그들에게 자신을 정의 할 수 있습니다

(define (1+ x) (+ x 1)) 
(define (-1+ x) (- x 1))