SICP练习1.40期

Question

嗨，我想解决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))

请告诉我你的想法是什么。我对工具和语言都很陌生。谢谢!

Answer 1

你使用的教学语言之一，它附带的球拍，它似乎有一些限制:例如，你不能有一个以上的表达式在一个过程的定义。

这很容易修复，只需切换到更强大的语言。单击球拍窗口左下角，并选择“从源确定语言”。编辑源文件，以便从指定要使用的语言的一行开始：

#lang racket

现在，您将可以完全访问所有的语言特性，无论是初学者还是高级用户。或者，您可以使用为SICP量身定制的语言，这是强烈推荐的：

#lang sicp