按钮事件增加计数；如何停止给定值的计数？

Question

给出；按钮事件触发器（加速）； (accelerate) 将当前速度增加 10。如何让当前速度值停止在 65？反之，按钮事件触发（刹车）；（刹车）将当前速度降低 7。如何让当前速度停止在 0？

 (define/public (accelerate)
      (cond
        ((> current-speed 65) = 65 current-speed)
        (else (set! current-speed (+ current-speed 10)))))     
     
    (define/public (brake)
      (cond
        ((< current-speed 0) = 0 current-speed)
        (else (set! current-speed (- current-speed 7)))))

因为它现在运行，（加速）将增加到 70 然后停止。（刹车）将减少到-7 的任何负值。我不承诺有条件，我只是不确定如何实施。

Answer 1

如果你想在一种情况下做某事，而在相反的情况下什么都不做，请使用 when。
要限制该值，请使用 min 和 max。

(define/public (accelerate)
    (when (< current-speed 65)
        (set! current-speed (min 65  (+ current-speed 10)))))
     
(define/public (brake)
    (when (> current-speed 0)
        (set! current-speed (max 0 (- current-speed 7)))))

按钮事件增加计数；如何停止给定值的计数？

Button event increases count; How to stop count at given value?

racket