scheme - 在球拍中使用 stop-when

Question

我一直在搞乱这个程序。它需要一个数字并在其上加 1。我想知道你怎么能在stop-when这里使用？例如，让它停在 5 点？我想这里需要一个 cond 声明。谢谢。

(require 2htdp/image)
(require 2htdp/universe)

(define (my-tick n)
(add1 n))

(define (my-render n)
  (text (number->string n) 36 "silver"))


(big-bang 1 (on-tick my-tick 2) (to-draw my-render))

Answer 1

给出stop-when一个消耗世界并返回真或假的谓词。

有关详细信息，请参阅此处的文档。

这是您的示例的一个版本，在 5 处停止：

(require 2htdp/image)
(require 2htdp/universe)

(define (my-tick n) (add1 n))

(define (my-render n)
  (text (number->string n) 36 "silver"))

(define (=5 n) (= n 5))

(big-bang 1 (on-tick my-tick 2) (to-draw my-render) (stop-when =5))