Ракетка - создание функции пола при определенных ограничениях

Question

я очень застрял на том, чтобы создать функцию пола со следующими ограничениями:

Я только разрешено использовать следующие функции в разделе 1.5 этой страницы: http://docs.racket-lang.org/htdp-langs/beginner.html.

Однако вам не разрешено использовать пол, круглую, потолочную и 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.