1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
<Comment>#lang racket/gui</Comment><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>define</Definition><Function> my-language </Function><Normal>'English</Normal><Brackets>)</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>define</Definition><Function> translations</Function><br/>
<Normal> #hash</Normal><Brackets>([</Brackets><Normal>English . </Normal><String>"Hello world"</String><Brackets>]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Normal>French . </Normal><String>"Bonjour le monde"</String><Brackets>]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Normal>German . </Normal><String>"Hallo Welt"</String><Brackets>]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Normal>Greek . </Normal><String>"Γειά σου, κόσμε"</String><Brackets>]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Normal>Portuguese . </Normal><String>"Olá mundo"</String><Brackets>]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Normal>Spanish . </Normal><String>"Hola mundo"</String><Brackets>]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Normal>Thai . </Normal><String>"สวัสดีชาวโลก"</String><Brackets>]))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>define</Definition><Function> my-hello-world</Function><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>hash-ref translations my-language</Normal><br/>
<Normal> </Normal><String>"hello world"</String><Brackets>))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Normal>message-box </Normal><String>""</String><Normal> my-hello-world</Normal><Brackets>)</Brackets><br/>
<Normal></Normal><br/>
<Comment>; Organizing interconnected function definitions with local</Comment><br/>
<Comment>; [List-of Number] [Number Number -> Boolean]</Comment><br/>
<Comment>; -> [List-of Number]</Comment><br/>
<Comment>; produces a version of alon0, sorted according to cmp</Comment><br/>
<Brackets>(</Brackets><Definition>define</Definition><Function> </Function><Brackets>(</Brackets><Normal>sort-cmp alon0 cmp</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>local </Normal><Brackets>(</Brackets><Comment>; [List-of Number] -> [List-of Number]</Comment><br/>
<Normal> </Normal><Comment>; produces the sorted version of alon</Comment><br/>
<Normal> </Normal><Brackets>(</Brackets><Definition>define</Definition><Function> </Function><Brackets>(</Brackets><Normal>isort alon</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>cond</Keyword><br/>
<Normal> </Normal><Brackets>[(</Brackets><Normal>empty? alon</Normal><Brackets>)</Brackets><Normal> '</Normal><Brackets>()]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Keyword>else</Keyword><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>insert </Normal><Brackets>(</Brackets><Normal>first alon</Normal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>isort </Normal><Brackets>(</Brackets><Normal>rest alon</Normal><Brackets>)))]))</Brackets><br/>
<Normal></Normal><br/>
<Normal> </Normal><Comment>; Number [List-of Number] -> [List-of Number]</Comment><br/>
<Normal> </Normal><Comment>; inserts n into the sorted list of numbers alon</Comment><br/>
<Normal> </Normal><Brackets>(</Brackets><Definition>define</Definition><Function> </Function><Brackets>(</Brackets><Normal>insert n alon</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>cond</Keyword><br/>
<Normal> </Normal><Brackets>[(</Brackets><Normal>empty? alon</Normal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Keyword>cons</Keyword><Normal> n '</Normal><Brackets>())]</Brackets><br/>
<Normal> </Normal><Brackets>[</Brackets><Keyword>else</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>if</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>cmp n </Normal><Brackets>(</Brackets><Normal>first alon</Normal><Brackets>))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>cons</Keyword><Normal> n alon</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>cons</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>first alon</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>insert n </Normal><Brackets>(</Brackets><Normal>rest alon</Normal><Brackets>))))])))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>isort alon0</Normal><Brackets>)))</Brackets><br/>
<Normal></Normal><br/>
|
