Scheme 和 let 语法

Question

 (define (Integral f a b N)  
    ;define h as a constant
    (let((h (/ (- b a) N))))       
     (define (Term n)   
      (* (/ h 3) (+ (* 2 (f (+ a (* 2 (* n h)))))   
            (* 4 (f (+ a (* 2 (* (- n 1) h)))))  
            )  
     ))  
     (+ (* (/ h 3) (+ (f a) (f b))) (sum Term a next (/ N 2.0))))  

此代码产生错误
r5rs:body: body 中没有表达式: (r5rs:body)
能否请你帮忙？

Answer 1

你在 let 之后放错了大括号。在 let 中定义常量后，使用该常量的代码必须在 let 的范围内。因此，您关于缺少表达式主体的错误。

这是更正后的代码:

(define (Integral f a b N)
  ; define h as a constant
  (let ((h (/ (- b a) N)))
    (define (Term n)
      (* (/ h 3) (+ (* 2 (f (+ a (* 2 (* n h)))))
                    (* 4 (f (+ a (* 2 (* (- n 1) h))))))))

    (+ (* (/ h 3) (+ (f a) (f b))) (sum Term a next (/ N 2.0)))))

顺便说一句，您仍然需要定义 sum 函数。