File indexing completed on 2024-05-19 15:23:17
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>test.rkt</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Racket) - Theme (Breeze Dark)"/> 0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre> 0007 <span style="color:#7a7c7d;">#lang racket/gui</span> 0008 0009 <span style="color:#3f8058;">(</span><span style="color:#0099ff;font-weight:bold;">define</span><span style="color:#8e44ad;"> my-language </span>'English<span style="color:#3f8058;">)</span> 0010 0011 <span style="color:#3f8058;">(</span><span style="color:#0099ff;font-weight:bold;">define</span><span style="color:#8e44ad;"> translations</span> 0012 #hash<span style="color:#3f8058;">([</span>English . <span style="color:#f44f4f;">"Hello world"</span><span style="color:#3f8058;">]</span> 0013 <span style="color:#3f8058;">[</span>French . <span style="color:#f44f4f;">"Bonjour le monde"</span><span style="color:#3f8058;">]</span> 0014 <span style="color:#3f8058;">[</span>German . <span style="color:#f44f4f;">"Hallo Welt"</span><span style="color:#3f8058;">]</span> 0015 <span style="color:#3f8058;">[</span>Greek . <span style="color:#f44f4f;">"Γειά σου, κόσμε"</span><span style="color:#3f8058;">]</span> 0016 <span style="color:#3f8058;">[</span>Portuguese . <span style="color:#f44f4f;">"Olá mundo"</span><span style="color:#3f8058;">]</span> 0017 <span style="color:#3f8058;">[</span>Spanish . <span style="color:#f44f4f;">"Hola mundo"</span><span style="color:#3f8058;">]</span> 0018 <span style="color:#3f8058;">[</span>Thai . <span style="color:#f44f4f;">"สวัสดีชาวโลก"</span><span style="color:#3f8058;">]))</span> 0019 0020 <span style="color:#3f8058;">(</span><span style="color:#0099ff;font-weight:bold;">define</span><span style="color:#8e44ad;"> my-hello-world</span> 0021 <span style="color:#3f8058;">(</span>hash-ref translations my-language 0022 <span style="color:#f44f4f;">"hello world"</span><span style="color:#3f8058;">))</span> 0023 0024 <span style="color:#3f8058;">(</span>message-box <span style="color:#f44f4f;">""</span> my-hello-world<span style="color:#3f8058;">)</span> 0025 0026 <span style="color:#7a7c7d;">; Organizing interconnected function definitions with local</span> 0027 <span style="color:#7a7c7d;">; [List-of Number] [Number Number -> Boolean]</span> 0028 <span style="color:#7a7c7d;">; -> [List-of Number]</span> 0029 <span style="color:#7a7c7d;">; produces a version of alon0, sorted according to cmp</span> 0030 <span style="color:#3f8058;">(</span><span style="color:#0099ff;font-weight:bold;">define</span><span style="color:#8e44ad;"> </span><span style="color:#3f8058;">(</span>sort-cmp alon0 cmp<span style="color:#3f8058;">)</span> 0031 <span style="color:#3f8058;">(</span>local <span style="color:#3f8058;">(</span><span style="color:#7a7c7d;">; [List-of Number] -> [List-of Number]</span> 0032 <span style="color:#7a7c7d;">; produces the sorted version of alon</span> 0033 <span style="color:#3f8058;">(</span><span style="color:#0099ff;font-weight:bold;">define</span><span style="color:#8e44ad;"> </span><span style="color:#3f8058;">(</span>isort alon<span style="color:#3f8058;">)</span> 0034 <span style="color:#3f8058;">(</span><span style="font-weight:bold;">cond</span> 0035 <span style="color:#3f8058;">[(</span>empty? alon<span style="color:#3f8058;">)</span> '<span style="color:#3f8058;">()]</span> 0036 <span style="color:#3f8058;">[</span><span style="font-weight:bold;">else</span> 0037 <span style="color:#3f8058;">(</span>insert <span style="color:#3f8058;">(</span>first alon<span style="color:#3f8058;">)</span> <span style="color:#3f8058;">(</span>isort <span style="color:#3f8058;">(</span>rest alon<span style="color:#3f8058;">)))]))</span> 0038 0039 <span style="color:#7a7c7d;">; Number [List-of Number] -> [List-of Number]</span> 0040 <span style="color:#7a7c7d;">; inserts n into the sorted list of numbers alon</span> 0041 <span style="color:#3f8058;">(</span><span style="color:#0099ff;font-weight:bold;">define</span><span style="color:#8e44ad;"> </span><span style="color:#3f8058;">(</span>insert n alon<span style="color:#3f8058;">)</span> 0042 <span style="color:#3f8058;">(</span><span style="font-weight:bold;">cond</span> 0043 <span style="color:#3f8058;">[(</span>empty? alon<span style="color:#3f8058;">)</span> <span style="color:#3f8058;">(</span><span style="font-weight:bold;">cons</span> n '<span style="color:#3f8058;">())]</span> 0044 <span style="color:#3f8058;">[</span><span style="font-weight:bold;">else</span> <span style="color:#3f8058;">(</span><span style="font-weight:bold;">if</span> <span style="color:#3f8058;">(</span>cmp n <span style="color:#3f8058;">(</span>first alon<span style="color:#3f8058;">))</span> 0045 <span style="color:#3f8058;">(</span><span style="font-weight:bold;">cons</span> n alon<span style="color:#3f8058;">)</span> 0046 <span style="color:#3f8058;">(</span><span style="font-weight:bold;">cons</span> <span style="color:#3f8058;">(</span>first alon<span style="color:#3f8058;">)</span> 0047 <span style="color:#3f8058;">(</span>insert n <span style="color:#3f8058;">(</span>rest alon<span style="color:#3f8058;">))))])))</span> 0048 <span style="color:#3f8058;">(</span>isort alon0<span style="color:#3f8058;">)))</span> 0049 0050 </pre></body></html>