diff --git a/L02/hello.rkt b/labs/L02/hello.rkt similarity index 100% rename from L02/hello.rkt rename to labs/L02/hello.rkt diff --git a/L02/hello.rkt~ b/labs/L02/hello.rkt~ similarity index 100% rename from L02/hello.rkt~ rename to labs/L02/hello.rkt~ diff --git a/labs/L03/first-rest-pattern.rkt b/labs/L03/first-rest-pattern.rkt new file mode 100644 index 0000000..bd430de --- /dev/null +++ b/labs/L03/first-rest-pattern.rkt @@ -0,0 +1,23 @@ +#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"))) + + +(define (rainbow2 p) + (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)))])) + [eles (cons (colorize))] + ) + (color-mapper p (list "red" "orange" "yellow" "green" "blue" "purple"))) \ No newline at end of file diff --git a/labs/L03/first-rest-pattern.rkt~ b/labs/L03/first-rest-pattern.rkt~ new file mode 100644 index 0000000..c6c9f31 --- /dev/null +++ b/labs/L03/first-rest-pattern.rkt~ @@ -0,0 +1 @@ +#lang slideshow \ No newline at end of file