#lang slideshow

(define (my-map f lst)
  (cond
   [(empty? lst) empty]
   [else (cons (f (first lst))
               (my-map f (rest lst)))]))

(define (rainbow p)
  (map (lambda (color)
         (colorize p color))
       (list "red" "orange" "yellow" "green" "blue" "purple")))


(rainbow (circle 10))

;(define (rainbow2 color-list)
;  (define (color-mapper gr-obj color-list)
;    (cond
;      [(empty? color-list) empty]
;      [else (cons(colorize gr-obj (first color-list)))
;        (color-mapper gr-obj (rest color-list))
;        (color-mapper gr-obj (list "red" "orange" "yellow" "green" "blue" "purple"))]
;    )
;  )
;)   


              ;[else (cons (colorize gr-obj (first color-list))
      ;  (color-mapper gr-obj (rest color-list)))]))