Scheme SICP练习1.40版

嗨，我正在尝试解决SICP 1.40

我正在使用DrRacket，并且不断出现以下错误：

定义：函数体只需要一个表达式，但找到了两个额外部分

在代码的这个区域

这是我的完整代码：

  (* x x))

(define (cube x) (* x x x))

(define (cubic a b c)
  (lambda (x)
    (+ (cube x)
       (* a (square x))
       (* b x) c)))

; Newton's methods pages 97 to 102
(define (deriv g)
    (lambda (x) (/ (- (g (+ x dx)) (g x)) dx)))
(define dx 0.00001)
(define tolerance 0.00001)
(define (fixed-point f first-guess)
    (define (close-enough? v1 v2)
        (< (abs (- v1 v2)) tolerance))
    (define (try guess)
        (let ((next (f guess)))
            (if (close-enough? guess next)
                next
                (try next))))
    (try first-guess))
(define (newton-transform g)
    (lambda (x) (- x (/ (g x) ((deriv g) x)))))

(define (newtons-method g guess) (fixed-point (newton-transform g) guess))

（*x））
（定义（立方体x）（*x））
（定义（立方a b c）
（λ（x）
（+（立方体x）
（*a（平方x））
（*Bx）c）））
; 牛顿方法第97至102页
（定义（派生）
（λ（x）（/（（g（+x dx））（gx））dx）））
（定义dx 0.00001）
（定义公差0.00001）
（定义（定点f首次猜测）
（定义（足够近？v1 v2）
（<（abs（-v1 v2））公差）
（定义（尝试猜测）
（让（（下一个（f猜测）））
（如果（足够近？猜测下一步）
下一个
（试试下一步）
（先猜猜看）
（定义（牛顿变换g）
（λ（x）（-x（/（gx）（（derivg）x()()))）
（定义（牛顿法g猜想）（定点（牛顿变换g猜想））

---

请告诉我你的想法。我对工具和外语都是新手。谢谢大家!

您使用的是Racket附带的一种教学语言，它似乎有一些限制：例如，在一个过程定义中不能有多个表达式

这很容易修复，只需切换到更强大的语言即可。点击Racket窗口左下角，选择“从源代码确定语言”。编辑源文件，使其以指定要使用的语言的行开始：

#lang racket

现在，无论是初学者还是高级用户，您都可以完全访问所有语言功能。或者，您可以使用为SICP量身定制的语言，强烈建议：

#lang sicp

.这起作用了。：）非常感谢你！