Warning, /frameworks/syntax-highlighting/autotests/reference/test.rkt.ref is written in an unsupported language. File is not indexed.
0001 <Comment>#lang racket/gui</Comment><br/> 0002 <Normal></Normal><br/> 0003 <Brackets>(</Brackets><Definition>define</Definition><Function> my-language </Function><Normal>'English</Normal><Brackets>)</Brackets><br/> 0004 <Normal></Normal><br/> 0005 <Brackets>(</Brackets><Definition>define</Definition><Function> translations</Function><br/> 0006 <Normal> #hash</Normal><Brackets>([</Brackets><Normal>English . </Normal><String>"Hello world"</String><Brackets>]</Brackets><br/> 0007 <Normal> </Normal><Brackets>[</Brackets><Normal>French . </Normal><String>"Bonjour le monde"</String><Brackets>]</Brackets><br/> 0008 <Normal> </Normal><Brackets>[</Brackets><Normal>German . </Normal><String>"Hallo Welt"</String><Brackets>]</Brackets><br/> 0009 <Normal> </Normal><Brackets>[</Brackets><Normal>Greek . </Normal><String>"Γειά σου, κόσμε"</String><Brackets>]</Brackets><br/> 0010 <Normal> </Normal><Brackets>[</Brackets><Normal>Portuguese . </Normal><String>"Olá mundo"</String><Brackets>]</Brackets><br/> 0011 <Normal> </Normal><Brackets>[</Brackets><Normal>Spanish . </Normal><String>"Hola mundo"</String><Brackets>]</Brackets><br/> 0012 <Normal> </Normal><Brackets>[</Brackets><Normal>Thai . </Normal><String>"สวัสดีชาวโลก"</String><Brackets>]))</Brackets><br/> 0013 <Normal></Normal><br/> 0014 <Brackets>(</Brackets><Definition>define</Definition><Function> my-hello-world</Function><br/> 0015 <Normal> </Normal><Brackets>(</Brackets><Normal>hash-ref translations my-language</Normal><br/> 0016 <Normal> </Normal><String>"hello world"</String><Brackets>))</Brackets><br/> 0017 <Normal></Normal><br/> 0018 <Brackets>(</Brackets><Normal>message-box </Normal><String>""</String><Normal> my-hello-world</Normal><Brackets>)</Brackets><br/> 0019 <Normal></Normal><br/> 0020 <Comment>; Organizing interconnected function definitions with local</Comment><br/> 0021 <Comment>; [List-of Number] [Number Number -> Boolean]</Comment><br/> 0022 <Comment>; -> [List-of Number]</Comment><br/> 0023 <Comment>; produces a version of alon0, sorted according to cmp</Comment><br/> 0024 <Brackets>(</Brackets><Definition>define</Definition><Function> </Function><Brackets>(</Brackets><Normal>sort-cmp alon0 cmp</Normal><Brackets>)</Brackets><br/> 0025 <Normal> </Normal><Brackets>(</Brackets><Normal>local </Normal><Brackets>(</Brackets><Comment>; [List-of Number] -> [List-of Number]</Comment><br/> 0026 <Normal> </Normal><Comment>; produces the sorted version of alon</Comment><br/> 0027 <Normal> </Normal><Brackets>(</Brackets><Definition>define</Definition><Function> </Function><Brackets>(</Brackets><Normal>isort alon</Normal><Brackets>)</Brackets><br/> 0028 <Normal> </Normal><Brackets>(</Brackets><Keyword>cond</Keyword><br/> 0029 <Normal> </Normal><Brackets>[(</Brackets><Normal>empty? alon</Normal><Brackets>)</Brackets><Normal> '</Normal><Brackets>()]</Brackets><br/> 0030 <Normal> </Normal><Brackets>[</Brackets><Keyword>else</Keyword><br/> 0031 <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/> 0032 <Normal></Normal><br/> 0033 <Normal> </Normal><Comment>; Number [List-of Number] -> [List-of Number]</Comment><br/> 0034 <Normal> </Normal><Comment>; inserts n into the sorted list of numbers alon</Comment><br/> 0035 <Normal> </Normal><Brackets>(</Brackets><Definition>define</Definition><Function> </Function><Brackets>(</Brackets><Normal>insert n alon</Normal><Brackets>)</Brackets><br/> 0036 <Normal> </Normal><Brackets>(</Brackets><Keyword>cond</Keyword><br/> 0037 <Normal> </Normal><Brackets>[(</Brackets><Normal>empty? alon</Normal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Keyword>cons</Keyword><Normal> n '</Normal><Brackets>())]</Brackets><br/> 0038 <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/> 0039 <Normal> </Normal><Brackets>(</Brackets><Keyword>cons</Keyword><Normal> n alon</Normal><Brackets>)</Brackets><br/> 0040 <Normal> </Normal><Brackets>(</Brackets><Keyword>cons</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>first alon</Normal><Brackets>)</Brackets><br/> 0041 <Normal> </Normal><Brackets>(</Brackets><Normal>insert n </Normal><Brackets>(</Brackets><Normal>rest alon</Normal><Brackets>))))])))</Brackets><br/> 0042 <Normal> </Normal><Brackets>(</Brackets><Normal>isort alon0</Normal><Brackets>)))</Brackets><br/> 0043 <Normal></Normal><br/>