scheme - ラケットでストップを使用する

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世界を消費し、true または false を返す述語を指定します。

詳細については、こちらのドキュメントを参照してください。

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))