我一直在搞这个程序。它需要一个数字并加 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))
Give stop-when
消耗世界并返回 true 或 false 的谓词。
有关更多信息,请参阅文档here http://docs.racket-lang.org/teachpack/2htdpuniverse.html?q=stop-when#%28form._world._%28%28lib._2htdp/universe..rkt%29._stop-when%29%29.
这是您的示例的一个版本,停止于 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))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)