方案：不是程序（Racket 博士）

Question

我正在使用 R5RS 方案在 Racket 博士中运行此程序，并在 (+ 1 IntDivide((- x y) y)) 行上遇到此错误：

"应用程序：不是一个程序；期望一个程序可以是 应用于给定的参数：5 个参数...："

该过程应该使用减法返回两个整数之间的除商。由于这是一个家庭作业问题，我不会问我的解决方案是否正确（我可以稍后调试），而是问是什么导致了这个错误。这似乎通常是由多余的括号引起的，但我似乎找不到它们。任何帮助将不胜感激。

(define IntDivide (lambda (x y)
  (if (eqv? (integer? x) (integer? y))
    (begin
      (if (= y 0)
        (begin
          (write "Can't divide by zero") (newline)
          -1
        )
      )

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

      (if (< x y)
        0
      )

      (if (> x y)
        (+ 1 IntDivide((- x y) y))
      )
    )
  )
  (write "Please only input integers")
))

提前致谢！

Answer 1

除了将运算符移动到括号内之外，您还需要将if 替换为cond：

(define IntDivide
  (lambda (x y)
    (if (eqv? (integer? x) (integer? y))
      (cond ((= y 0) (write "Can't divide by zero")
                     (newline)
                     -1)
            ((= x y) 1)
            ((< x y) 0)
            ((> x y) (+ 1 (IntDivide (- x y) y))))
      (write "Please only input integers"))))

您现在拥有的方式以及内部 if 表达式将无法正常工作，因为它们不会自动返回。他们只是评估然后结果被丢弃。

Answer 2

调用 IntDivide 的方式与调用任何其他函数的方式相同。

(+ 1 (IntDivide (- x y) y))