scheme - 球拍 - 在某些约束下创建地板功能

Question

我非常坚持尝试创建具有以下约束的地板功能：

我只允许在本页第 1.5 节中使用以下功能：http: //docs.racket-lang.org/htdp-langs/beginner.html。

但是，您不能使用 floor、round、ceiling 和 sgn 功能。除此之外，您无法使用递归、条件、列表甚至辅助函数。

注意：仅使用初学者的学生文档

Answer 1

以下是帮助您入门的提示：

floor(x) = 0            if 0 <=x < 1
floor(x) = 1+floor(x-1) if x>1

在方案表示法中：

(define (myfloor x)
  (cond
    [(below-one? x)  0]
    [else           (add-one (myfloor (subtract-one x)))]))

您需要做的就是弄清楚如何编写below-one和subtract-one.