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