;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-advanced-reader.ss" "lang")((modname cercles) (read-case-sensitive #t) (teachpacks ((lib "valrose.rkt" "installed-teachpacks"))) (htdp-settings #(#t write mixed-fraction #t #t none #f ((lib "valrose.rkt" "installed-teachpacks")))))
;;;
;;; cercles.rkt
;;; Teachpack : valrose.rkt - Langage : Etudiant avance

(define (cercles n r)
  (if (= n 1)
      (circle r 'outline "black")
      (underlay/align 'left 'center 
                      (circle r 'outline "black")
                      (cercles (- n 1) (+ r 5)))))

(cercles 6 30)