12 lines
226 B
Scheme
12 lines
226 B
Scheme
;; TeachPack: rectangle.ss
|
|
;; LanguageLevel: beginner
|
|
|
|
(start 100 100)
|
|
|
|
(show (list
|
|
(list RED RED)))
|
|
|
|
(show (list
|
|
(list BLUE BLUE BLUE BLUE)
|
|
(list GREEN RED RED GREEN)
|
|
(list BLUE BLUE BLUE BLUE))) |