라켓에 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은 세계를 소비하고 참 또는 거짓을 반환하는 조건자를 제공합니다.

자세한 내용은 here 문서를 참조하십시오.

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

: 여기

5에서 정지 귀하의 예제의 버전입니다