286 lines
12 KiB
Racket
286 lines
12 KiB
Racket
#reader(lib"read.ss""wxme")WXME0108 ##
|
|
#|
|
|
This file uses the GRacket editor format.
|
|
Open this file in DrRacket version 5.2.1.6 or later to read it.
|
|
|
|
Most likely, it was created by saving a program in DrRacket,
|
|
and it probably contains a program with non-text elements
|
|
(such as images or comment boxes).
|
|
|
|
http://racket-lang.org/
|
|
|#
|
|
30 7 #"wxtext\0"
|
|
3 1 6 #"wxtab\0"
|
|
1 1 8 #"wximage\0"
|
|
2 0 8 #"wxmedia\0"
|
|
4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
|
|
1 0 16 #"drscheme:number\0"
|
|
3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
|
|
1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
|
|
1 0 93
|
|
(
|
|
#"((lib \"collapsed-snipclass.ss\" \"framework\") (lib \"collapsed-sni"
|
|
#"pclass-wxme.ss\" \"framework\"))\0"
|
|
) 0 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
|
|
0 0 19 #"drscheme:sexp-snip\0"
|
|
0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
|
|
1 0 68
|
|
(
|
|
#"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
|
|
#"lib\"))\0"
|
|
) 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
|
|
0 0 88
|
|
(
|
|
#"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r"
|
|
#"kt\" \"drracket\" \"private\"))\0"
|
|
) 0 0 29 #"drscheme:bindings-snipclass%\0"
|
|
1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
|
|
1 0 22 #"drscheme:lambda-snip%\0"
|
|
1 0 57
|
|
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
|
|
1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
|
|
1 0 26 #"drscheme:pict-value-snip%\0"
|
|
0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
|
|
2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
|
|
1 0 18 #"drscheme:xml-snip\0"
|
|
1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
|
|
1 0 21 #"drscheme:scheme-snip\0"
|
|
2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
|
|
1 0 10 #"text-box%\0"
|
|
1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
|
|
1 0 15 #"test-case-box%\0"
|
|
2 0 1 6 #"wxloc\0"
|
|
0 0 57 0 1 #"\0"
|
|
0 75 1 #"\0"
|
|
0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
|
|
#"Standard\0"
|
|
0 75 7 #"Monaco\0"
|
|
0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
|
|
#"framework:default-color\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
|
|
#"text:ports out\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 192 46 214 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
|
|
-1 2 15 #"text:ports err\0"
|
|
0 -1 1 #"\0"
|
|
1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
|
|
-1 2 1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
|
|
#"text:ports value\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 57 89 216 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
|
|
-1 2 27 #"Matching Parenthesis Style\0"
|
|
0 -1 1 #"\0"
|
|
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
|
|
-1 2 1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 102 102 255 0 0 0 -1 -1 2
|
|
37 #"framework:syntax-color:scheme:symbol\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 102 102 255 0 0 0 -1 -1 2
|
|
38 #"framework:syntax-color:scheme:keyword\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 102 102 255 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 249 148 40 0 0 0 -1 -1 2
|
|
38 #"framework:syntax-color:scheme:comment\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 249 148 40 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 51 174 51 0 0 0 -1 -1 2 37
|
|
#"framework:syntax-color:scheme:string\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 51 174 51 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 60 194 57 0 0 0 -1 -1 2 39
|
|
#"framework:syntax-color:scheme:constant\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 60 194 57 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 151 69 43 0 0 0 -1 -1 2 42
|
|
#"framework:syntax-color:scheme:parenthesis\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 151 69 43 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
|
|
#"framework:syntax-color:scheme:error\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
|
|
36 #"framework:syntax-color:scheme:other\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 50 163 255 0 0 0 -1 -1 2
|
|
38 #"drracket:check-syntax:lexically-bound\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 50 163 255 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
|
|
28 #"drracket:check-syntax:set!d\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
|
|
37 #"drracket:check-syntax:unused-require\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
|
|
36 #"drracket:check-syntax:free-variable\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 166 0 255 0 0 0 -1 -1 2 31
|
|
#"drracket:check-syntax:imported\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 166 0 255 0 0 0 -1 -1 2 47
|
|
#"drracket:check-syntax:my-obligation-style-pref\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 50 205 50 0 0 0 -1 -1 2 50
|
|
#"drracket:check-syntax:their-obligation-style-pref\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 50 205 50 0 0 0 -1 -1 2 48
|
|
#"drracket:check-syntax:unk-obligation-style-pref\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 240 230 140 0 0 0 -1 -1 2
|
|
49 #"drracket:check-syntax:both-obligation-style-pref\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 240 230 140 0 0 0 -1 -1 2
|
|
26 #"plt:htdp:test-coverage-on\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 205 92 92 0 0 0 -1 -1 2 27
|
|
#"plt:htdp:test-coverage-off\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 205 92 92 0 0 0 -1 -1 4 1
|
|
#"\0"
|
|
0 70 1 #"\0"
|
|
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
|
-1 -1 4 4 #"XML\0"
|
|
0 70 1 #"\0"
|
|
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
|
-1 -1 2 1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 37
|
|
#"plt:module-language:test-coverage-on\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 1
|
|
#"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38
|
|
#"plt:module-language:test-coverage-off\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 4 1
|
|
#"\0"
|
|
0 71 1 #"\0"
|
|
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
|
|
-1 -1 4 1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
|
|
-1 4 1 #"\0"
|
|
0 71 1 #"\0"
|
|
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
|
|
-1 4 1 #"\0"
|
|
0 71 1 #"\0"
|
|
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
|
|
-1 4 1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 2
|
|
1 #"\0"
|
|
0 -1 1 #"\0"
|
|
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1
|
|
0 5 0 27 3 17 #"#lang racket/base"
|
|
0 0 4 29 1 #"\n"
|
|
0 14 4 4 3820
|
|
(
|
|
#"(516.0 114.2421875 14.0 43.12109375 ((do-set-pen! ((0 0 0 1.0) 1 sol"
|
|
#"id round round #f)) (do-set-brush! ((255 255 255 1.0) solid #f #f #f"
|
|
#")) (set-font (12 #f default normal normal #f default #f)) (set-smoot"
|
|
#"hing unsmoothed) (set-text-mode transparent) (set-alpha 1.0) (set-cl"
|
|
#"ipping-region #f) (set-scale 4.0 4.0) (set-font (14 #f roman italic "
|
|
#"normal #f default #t)) (draw-text \"e\" 0.0 0.2802734375 #t 0 0.0) ("
|
|
#"set-font (12 #f default normal normal #f default #f)) (set-font (14 "
|
|
#"#f roman normal normal #f default #t)) (draw-text \" ::= \" 6.0 0.28"
|
|
#"02734375 #t 0 0.0) (set-font (12 #f default normal normal #f default"
|
|
#" #f)) (set-font (14 #f roman normal normal #f default #t)) (draw-tex"
|
|
#"t \"(\" 29.0 0.2802734375 #t 0 0.0) (set-font (12 #f default normal "
|
|
#"normal #f default #f)) (set-font (14 #f roman italic normal #f defau"
|
|
#"lt #t)) (draw-text \"e\" 34.0 0.2802734375 #t 0 0.0) (set-font (12 #"
|
|
#"f default normal normal #f default #f)) (set-font (14 #f roman norma"
|
|
#"l normal #f default #t)) (draw-text \" \" 40.0 0.2802734375 #t 0 0.0"
|
|
#") (set-font (12 #f default normal normal #f default #f)) (set-font ("
|
|
#"14 #f roman italic normal #f default #t)) (draw-text \"e\" 44.0 0.28"
|
|
#"02734375 #t 0 0.0) (set-font (12 #f default normal normal #f default"
|
|
#" #f)) (set-font (14 #f roman normal normal #f default #t)) (draw-tex"
|
|
#"t \")\" 50.0 0.2802734375 #t 0 0.0) (set-font (12 #f default normal "
|
|
#"normal #f default #f)) (set-font (14 #f roman normal normal #f defau"
|
|
#"lt #t)) (draw-text \" | \" 55.0 0.2802734375 #t 0 0.0) (set-font (12"
|
|
#" #f default normal normal #f default #f)) (set-font (14 #f roman ita"
|
|
#"lic normal #f default #t)) (draw-text \"x\" 65.0 0.2802734375 #t 0 0"
|
|
#".0) (set-font (12 #f default normal normal #f default #f)) (set-font"
|
|
#" (14 #f roman normal normal #f default #t)) (draw-text \" | \" 71.0 "
|
|
#"0.2802734375 #t 0 0.0) (set-font (12 #f default normal normal #f def"
|
|
#"ault #f)) (set-font (14 #f roman normal normal #f default #t)) (draw"
|
|
#"-text \"(\" 81.0 0.2802734375 #t 0 0.0) (set-font (12 #f default nor"
|
|
#"mal normal #f default #f)) (set-font (14 #f swiss normal normal #f d"
|
|
#"efault #t)) (draw-text \"\316\273\" 86.0 0.0 #t 0 0.0) (set-font (12"
|
|
#" #f default normal normal #f default #f)) (set-font (14 #f roman nor"
|
|
#"mal normal #f default #t)) (draw-text \" \" 94.0 0.2802734375 #t 0 0"
|
|
#".0) (set-font (12 #f default normal normal #f default #f)) (set-font"
|
|
#" (14 #f roman normal normal #f default #t)) (draw-text \"(\" 98.0 0."
|
|
#"2802734375 #t 0 0.0) (set-font (12 #f default normal normal #f defau"
|
|
#"lt #f)) (set-font (14 #f roman italic normal #f default #t)) (draw-t"
|
|
#"ext \"x\" 103.0 0.2802734375 #t 0 0.0) (set-font (12 #f default norm"
|
|
#"al normal #f default #f)) (set-font (14 #f roman normal normal #f de"
|
|
#"fault #t)) (draw-text \")\" 109.0 0.2802734375 #t 0 0.0) (set-font ("
|
|
#"12 #f default normal normal #f default #f)) (set-font (14 #f roman n"
|
|
#"ormal normal #f default #t)) (draw-text \" \" 114.0 0.2802734375 #t "
|
|
#"0 0.0) (set-font (12 #f default normal normal #f default #f)) (set-f"
|
|
#"ont (14 #f roman italic normal #f default #t)) (draw-text \"e\" 118."
|
|
#"0 0.2802734375 #t 0 0.0) (set-font (12 #f default normal normal #f d"
|
|
#"efault #f)) (set-font (14 #f roman normal normal #f default #t)) (dr"
|
|
#"aw-text \")\" 124.0 0.2802734375 #t 0 0.0) (set-font (12 #f default "
|
|
#"normal normal #f default #f)) (set-font (14 #f roman normal normal #"
|
|
#"f default #t)) (draw-text \" | \" 19.0 14.560546875 #t 0 0.0) (set-f"
|
|
#"ont (12 #f default normal normal #f default #f)) (set-font (14 #f ro"
|
|
#"man italic normal #f default #t)) (draw-text \"number\" 29.0 14.5605"
|
|
#"46875 #t 0 0.0) (set-font (12 #f default normal normal #f default #f"
|
|
#")) (set-font (14 #f roman normal n"
|
|
#"ormal #f default #t)) (draw-text \" | \" 72.0 14.560546875 #t 0 0.0)"
|
|
#" (set-font (12 #f default normal normal #f default #f)) (set-font (1"
|
|
#"4 #f swiss normal normal #f default #t)) (draw-text \"add1\" 82.0 14"
|
|
#".2802734375 #t 0 0.0) (set-font (12 #f default normal normal #f defa"
|
|
#"ult #f)) (set-scale 1.0 1.0)))"
|
|
) 0 0 4 29 1 #"\n"
|
|
0 0 4 29 1 #"\n"
|
|
0 0
|