布尔定义架构

Question

我正在尝试制作一个简短的程序，以使矩形增长并以特定大小停止。我已经按照HTDP中的方法进行了缩小，然后使用[stop-when zero？（零时停止？）]使其停止。 在下面的程序中，它永远不会停止，因为它从1开始并增加了1，我想使其在100插入零时停止？ 我想我应该使用boolean并创建类似以下的函数：

（定义（大于100 n）?????）并使其停在 [当大于100时停止]

但是我不明白.....

(define (bigger-than-100 n>100) true)
(define (number->square s)
(square s "solid" "green"))
(big-bang 1
  [to-draw number->square]
  [on-tick add1]
  [stop-when bigger-than-100])