1 2(define randrects 3 (lambda (n rmax lmax) 4 (let 5 ((x (random lmax)) (y (random lmax)) 6 (fill (random 2)) 7 (a (+ (/ rmax 2) (random (/ rmax 2)))) 8 (b (+ (/ rmax 2) (random (/ rmax 2))))) 9 (draw-color 10 (random 256) 11 (random 256) 12 (random 256)) 13 (draw-move x y) 14 ((if (zero? fill) draw-rect fill-rect) a b) 15 (if (not (zero? n)) 16 (randrects (- n 1) rmax lmax))))) 17 18(randrects 25 60 250) 19