计划并让错误

Question

我终其一生都无法找出这段代码产生错误的原因。 这是错误：

let*: 语法错误（缺少正文） in: (let* ((tempp2 (p2) (letrec ((mloop (p1 p2) (if (= (length p1) 0))) (else if ((= (长度 p2) 0) ((set!p2 (pn)) (multiloop (cdr p1) (p2)))) (else (let* ((prod (append (prod)) (cons (* (coeff (car p1))) (coeff (car p2))) (+ (expon (car p1)) (expon (car p2)))))))) (set!p2 (cdr p2)) (mloop (p1 p2)) (simplify (sort新的）））））））））））

代码如下：

(define multiplyPoly (lambda (p1 p2)
                 (
                  (let* ((hardp2 (p2)
                 (letrec 
                     ((mloop (p1 p2)
                       (if (= (length p1) 0))
                       (else if ((=(length p2) 0) ((set! p2 (hardp2)) (multiloop (cdr p1) (p2))))
                    (else
                     (let* ([prod  (append (prod) (cons(*(coeff(car p1)) (coeff(car p2))) (+(expon(car p1)) (expon(car p2)))))]))
                      (set! p2 (cdr p2))
                           (mloop (p1 p2))
                      (simplify (sort newone)))))))))))))

Answer 1

您的代码中有很多语法错误。我敦促您安装一个可以匹配括号并正确识别您的代码的 IDE，例如DrRacket。 DrRacket 支持 R5RS 和 R6RS，因此您仍然可以使用 DrRacket 在 Scheme 中编程。

通常let、let* 和letrec 具有以下形式：

(let ((var expression) ...)
  body)

在letrec 或letrec* 中，表达式看起来像(lambda (arg ...) expression)。

如果您采用像(if (positive? x) - +) 这样的任何Scheme 表达式并用一对额外的括号将它们括起来，则您将结果称为过程：((if (positive? -1) - +)) ; ==> 0

if 的工作方式如下：

(if predicate-expression
    consequent-expression
    alternative-expression)

如果需要嵌套，则需要嵌套 if 作为替代表达式。

(if predicate-expression
    consequent-expression
    (if predicate-expression2
        consequent-expression2
        alternative-expression))

如果你在那里嵌套 cond 可能会更好。上面的表达式可以写成：

(cond (predicate-expression consequent-expression)
      (predicate-expression2 consequent-expression)
      (else alternative-expression))

else 在cond 中具有特殊含义，因此它不能单独工作。