Я пытаюсь сделать короткую программу, которая позволяет прямоугольнику расти и останавливаться на определенном размере.Я сделал обратное, уменьшив его, как в книге HTDP, и затем использовал [стоп-когда ноль?]), Чтобы остановить его.В программе ниже она никогда не останавливается, потому что она начинается с 1 и добавляет 1, я хочу, чтобы она остановилась на 100 единиц нуля?Я думаю, что я должен работать с логическим значением и создать такую функцию, как:
(определить (больше-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])