Version 1 of finalhorses

Updated 2019-02-19 10:00:56 by acorn54
This page is considered SPAM!
<!DOCTYPE html>
<!-- saved from url=(0049)https://wiki.tcl-lang.org/page/Horseracing+in+Tcl -->
<html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8">

<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="Tclers wiki">
<meta name="author" content="">
<link rel="icon" href="https://wiki.tcl-lang.org/img/favicon.ico">
<title>Horseracing in Tcl</title>

<link rel="stylesheet" href="./Horseracing in Tcl_files/bootstrap.min.css">
<link rel="stylesheet" href="./Horseracing in Tcl_files/nikit.css" type="text/css">
<link rel="stylesheet" href="./Horseracing in Tcl_files/sh_style.css" type="text/css">
<link rel="stylesheet" href="./Horseracing in Tcl_files/theme.bootstrap_3.min.css" type="text/css">
<script type="text/javascript" async="" src="./Horseracing in Tcl_files/recaptcha__en.js.download"></script><script src="./Horseracing in Tcl_files/clipboard.min.js.download"></script>
<style>body.tablesorter-disableSelection { -ms-user-select: none; -moz-user-select: -moz-none;-khtml-user-select: none; -webkit-user-select: none; user-select: none; }.tablesorter-resizable-container { position: relative; height: 1px; }.tablesorter-resizable-handle { position: absolute; display: inline-block; width: 8px;top: 1px; cursor: ew-resize; z-index: 3; user-select: none; -moz-user-select: none; }</style></head>
<body onload="sh_highlightDocument(); nikitUser();">
<nav class="navbar navbar-fixed-top navbar-inverse">
<div class="container">
<div class="navbar-header">
<button type="button" class="navbar-toggle" data-toggle="collapse" data-target="#myNavbar">
<span class="icon-bar"></span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
</button>
<ul class="nav navbar-nav">
<li class="dropdown">
<a class="dropdown-toggle" data-toggle="dropdown" href="https://wiki.tcl-lang.org/page/Horseracing+in+Tcl#">&nbsp;Tcler's Wiki<span class="caret"></span></a>
<ul class="dropdown-menu scrollable-menu" role="menu"><li><a href="https://wiki.tcl-lang.org/welcome">Home</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/recent">Changes</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/_random">Random page</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/_new">New page</a></li>
<li><a rel="nofollow" target="_blank" href="https://chiselapp.com/user/stevel/repository/nikit/ticket">Report Problems</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/privacy">Privacy</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/license">License</a></li>
</ul>
</li>
</ul>
</div>
<div class="collapse navbar-collapse" id="myNavbar">
<ul class="nav navbar-nav">
<li class="dropdown" id="li_idPageEdit" style="display: block;">
<a class="dropdown-toggle" data-toggle="dropdown" href="https://wiki.tcl-lang.org/page/Horseracing+in+Tcl#"><span id="name_idPageEdit">Page</span><span class="caret"></span></a>
<ul class="dropdown-menu scrollable-menu" role="menu"><li><a rel="nofollow" href="https://wiki.tcl-lang.org/_edit/Horseracing+in+Tcl?A=1">Comment</a></li>
<li><a rel="nofollow" hidden="true" href="https://wiki.tcl-lang.org/_edit/Horseracing+in+Tcl">Edit</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/_upload/Horseracing+in+Tcl">Upload</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/ref/Horseracing+in+Tcl">References</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/history/Horseracing+in+Tcl">History</a></li>
</ul>
</li>
<li class="dropdown" id="li_idPageNoEdit" style="display:none">
<a class="dropdown-toggle" data-toggle="dropdown" href="https://wiki.tcl-lang.org/page/Horseracing+in+Tcl#"><span id="name_idPageNoEdit">Page</span><span class="caret"></span></a>
<ul class="dropdown-menu scrollable-menu" role="menu"><li><a rel="nofollow" href="https://wiki.tcl-lang.org/ref/Horseracing+in+Tcl">References</a></li>
<li><a rel="nofollow" href="https://wiki.tcl-lang.org/history/Horseracing+in+Tcl">History</a></li>
</ul>
</li>
<li><a href="https://wiki.tcl-lang.org/page/Tcl+Tutorial+Lesson+0">Tutorial</a></li>
<li><a href="https://wiki.tcl-lang.org/page/Articles">Articles</a></li>
<li><a href="https://wiki.tcl-lang.org/page/help">Help</a></li>
</ul>
<ul class="nav navbar-nav navbar-right">
<li class="dropdown">
<a class="dropdown-toggle" data-toggle="dropdown" href="https://wiki.tcl-lang.org/page/Horseracing+in+Tcl#"><span id="name_SMenu">acorn54</span><span class="caret"></span></a>
<ul class="dropdown-menu" id="ul_SMenu"><li><a rel="nofollow" href="https://wiki.tcl-lang.org/_logout?U=https://wiki.tcl-lang.org/page/Horseracing+in+Tcl">Sign out</a></li></ul>
</li>
</ul>
<form class="navbar-form navbar-right" method="get" action="https://duckduckgo.com/" id="searchform">
<input name="q" type="text" class="form-control" placeholder="Search...">
<input type="hidden" name="sites" value="wiki.tcl-lang.org">
</form>
</div>
</div>
</nav>
<div class="container">
<div class="row">
<div class="col-xs-12">
<h2>Horseracing in Tcl</h2>
</div>
</div>
<div class="row">
<div class="col-xs-12">
<hr class="mkup_hr"><p class="mkup_p"><img class="mkup_img" alt="WikiDbImage horses.jpg" src="./Horseracing in Tcl_files/WikiDbImage+horses.jpg"></p><p class="mkup_p"><a class="mkup_a mkup_known" href="https://wiki.tcl-lang.org/page/Richard+Suchenwirth">Richard Suchenwirth</a> 2002-06-02 - After a long weekend with occasional fun projects, I finally wanted to do something in Tk too. Now here's a silly horse-racing game: ten horses (you can edit their names if you don't like my defaults) run at random speed from left to right. The first three to reach the finish are listed at the bottom. That's all. But still it was kind of fun to write, and at the usual fast Tcl speed - 2.5 hours between first design and this "delivery" version...</p><div class="sh_sourceCode"><button class="copybtn btn pull-right" data-clipboard-target="#mkup_code_0" title="Click to copy code snippet to clipboard"><span class="glyphicon glyphicon-copy" aria-hidden="true"></span></button><pre id="mkup_code_0" class="sh_tcl sh_sourceCode"><a href="https://wiki.tcl-lang.org/page/package" class="sh_keyword">package</a> require Tk
<a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> horses <span class="sh_cbracket">{</span>
    Blaise Gottlieb Animal Ada Alan Haskell Grace Brian John Linus
<span class="sh_cbracket">}</span> <span class="sh_comment">;# edit this list for permanent preferences</span>
<a href="https://wiki.tcl-lang.org/page/proc" class="sh_keyword">proc</a> main <span class="sh_cbracket">{</span>horses<span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> c <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/canvas" class="sh_keyword">canvas</a> <span class="sh_symbol">.</span>c <span class="sh_symbol">-</span>bg green4 <span class="sh_symbol">-</span>width <span class="sh_number">500</span> <span class="sh_symbol">-</span>height <span class="sh_number">330</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/pack" class="sh_keyword">pack</a> <span class="sh_variable">$c</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> n <span class="sh_number">0</span>
    <a href="https://wiki.tcl-lang.org/page/foreach" class="sh_keyword">foreach</a> horse <span class="sh_variable">$horses</span> <span class="sh_cbracket">{</span>
        <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> w <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/entry" class="sh_keyword">entry</a> <span class="sh_variable">$c</span><span class="sh_number">.</span>e<span class="sh_variable">$n</span> <span class="sh_symbol">-</span>textvar horse<span class="sh_variable">$n</span> <span class="sh_symbol">-</span>width <span class="sh_number">8</span> <span class="sh_symbol">-</span>bg green3<span class="sh_symbol">]</span>
        <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> <span class="sh_symbol">::</span>horse<span class="sh_variable">$n</span> <span class="sh_variable">$horse</span>
        <span class="sh_variable">$c</span> create window <span class="sh_number">5</span> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_variable">$n</span><span class="sh_symbol">*</span><span class="sh_number">30+5</span><span class="sh_symbol">]</span> <span class="sh_symbol">-</span>window <span class="sh_variable">$w</span> <span class="sh_symbol">-</span>anchor nw
        horse <span class="sh_variable">$c</span> <span class="sh_number">70</span> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_variable">$n</span><span class="sh_symbol">*</span><span class="sh_number">30+14</span><span class="sh_symbol">]</span> horse<span class="sh_variable">$n</span>
        <a href="https://wiki.tcl-lang.org/page/lappend" class="sh_keyword">lappend</a> horsetags horse<span class="sh_variable">$n</span>
        <a href="https://wiki.tcl-lang.org/page/incr" class="sh_keyword">incr</a> n
    <span class="sh_cbracket">}</span>
    <span class="sh_variable">$c</span> create line <span class="sh_number">480</span> <span class="sh_number">0</span> <span class="sh_number">480</span> <span class="sh_number">330</span> <span class="sh_symbol">-</span>fill white <span class="sh_symbol">-</span>tag finish
    <a href="https://wiki.tcl-lang.org/page/button" class="sh_keyword">button</a> <span class="sh_variable">$c</span><span class="sh_number">.</span><a href="https://wiki.tcl-lang.org/page/button" class="sh_keyword">button</a> <span class="sh_symbol">-</span><a href="https://wiki.tcl-lang.org/page/text" class="sh_keyword">text</a> Start <span class="sh_symbol">-</span>pady <span class="sh_number">0</span> <span class="sh_symbol">-</span>width <span class="sh_number">7</span> <span class="sh_symbol">\</span>
        <span class="sh_symbol">-</span>command <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/list" class="sh_keyword">list</a> start <span class="sh_variable">$c</span> <span class="sh_variable">$horsetags</span><span class="sh_symbol">]</span>
    <span class="sh_variable">$c</span> create window <span class="sh_number">5</span> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_variable">$n</span><span class="sh_symbol">*</span><span class="sh_number">30</span><span class="sh_symbol">]</span> <span class="sh_symbol">-</span>window <span class="sh_variable">$c</span><span class="sh_number">.</span><a href="https://wiki.tcl-lang.org/page/button" class="sh_keyword">button</a> <span class="sh_symbol">-</span>anchor nw
    <a href="https://wiki.tcl-lang.org/page/label" class="sh_keyword">label</a> <span class="sh_variable">$c</span><span class="sh_number">.</span>winners <span class="sh_symbol">-</span>textvar winners <span class="sh_symbol">-</span>bg green3 <span class="sh_symbol">-</span>width <span class="sh_number">60</span>
    <span class="sh_variable">$c</span> create window <span class="sh_number">70</span> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_variable">$n</span><span class="sh_symbol">*</span><span class="sh_number">30</span><span class="sh_symbol">]</span> <span class="sh_symbol">-</span>window <span class="sh_variable">$c</span><span class="sh_number">.</span>winners <span class="sh_symbol">-</span>anchor nw
<span class="sh_cbracket">}</span>
<a href="https://wiki.tcl-lang.org/page/proc" class="sh_keyword">proc</a> horse <span class="sh_cbracket">{</span>c x y tag<span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> hide <span class="sh_symbol">[</span>lpick <span class="sh_cbracket">{</span>black brown white gray brown3 brown4<span class="sh_cbracket">}</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> c1 <span class="sh_symbol">[</span>lpick <span class="sh_cbracket">{</span>red yellow blue purple pink green<span class="sh_cbracket">}</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> c2 <span class="sh_symbol">[</span>lpick <span class="sh_cbracket">{</span>red yellow blue purple pink green<span class="sh_cbracket">}</span><span class="sh_symbol">]</span>
    <span class="sh_variable">$c</span> create oval <span class="sh_number">0</span> <span class="sh_symbol">-</span><span class="sh_number">1</span> <span class="sh_number">18</span> <span class="sh_number">4</span> <span class="sh_symbol">-</span>fill <span class="sh_variable">$hide</span> <span class="sh_symbol">-</span>outline <span class="sh_variable">$hide</span> <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span>
    <span class="sh_variable">$c</span> create line <span class="sh_number">1</span> <span class="sh_number">12</span> <span class="sh_number">3</span> <span class="sh_number">0</span> <span class="sh_number">5</span> <span class="sh_number">12</span> <span class="sh_symbol">-</span>fill <span class="sh_variable">$hide</span> <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span> <span class="sh_symbol">-</span>width <span class="sh_number">2</span>
    <span class="sh_variable">$c</span> create line <span class="sh_number">15</span> <span class="sh_number">12</span> <span class="sh_number">17</span> <span class="sh_number">0</span> <span class="sh_number">19</span> <span class="sh_number">12</span> <span class="sh_symbol">-</span>fill <span class="sh_variable">$hide</span> <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span> <span class="sh_symbol">-</span>width <span class="sh_number">2</span>
    <span class="sh_variable">$c</span> create line <span class="sh_number">16</span> <span class="sh_number">0</span> <span class="sh_number">20</span> <span class="sh_symbol">-</span><span class="sh_number">7</span> <span class="sh_number">24</span> <span class="sh_symbol">-</span><span class="sh_number">5</span> <span class="sh_symbol">-</span>fill <span class="sh_variable">$hide</span> <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span> <span class="sh_symbol">-</span>width <span class="sh_number">3</span>
<span class="sh_comment">    # Jockey:</span>
    <span class="sh_variable">$c</span> create line <span class="sh_number">9</span> <span class="sh_number">4</span> <span class="sh_number">11</span> <span class="sh_number">1</span> <span class="sh_number">7</span> <span class="sh_symbol">-</span><span class="sh_number">1</span> <span class="sh_symbol">-</span>fill <span class="sh_variable">$c1</span> <span class="sh_symbol">-</span>width <span class="sh_number">2</span> <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span>
    <span class="sh_variable">$c</span> create line <span class="sh_number">7</span> <span class="sh_symbol">-</span><span class="sh_number">2</span> <span class="sh_number">10</span> <span class="sh_symbol">-</span><span class="sh_number">6</span> <span class="sh_number">15</span> <span class="sh_symbol">-</span><span class="sh_number">3</span> <span class="sh_symbol">-</span>fill <span class="sh_variable">$c2</span> <span class="sh_symbol">-</span>width <span class="sh_number">2</span> <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span>
    <span class="sh_variable">$c</span> create oval <span class="sh_number">9</span> <span class="sh_symbol">-</span><span class="sh_number">7</span> <span class="sh_number">12</span> <span class="sh_symbol">-</span><span class="sh_number">10</span> <span class="sh_symbol">-</span>fill orange <span class="sh_symbol">-</span>outline orange <span class="sh_symbol">-</span>tag <span class="sh_variable">$tag</span>
    <span class="sh_variable">$c</span> move <span class="sh_variable">$tag</span> <span class="sh_variable">$x</span> <span class="sh_variable">$y</span>
<span class="sh_cbracket">}</span>
<a href="https://wiki.tcl-lang.org/page/proc" class="sh_keyword">proc</a> start <span class="sh_cbracket">{</span>c running<span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
    <span class="sh_variable">$c</span><span class="sh_number">.</span><a href="https://wiki.tcl-lang.org/page/button" class="sh_keyword">button</a> config <span class="sh_symbol">-</span><a href="https://wiki.tcl-lang.org/page/text" class="sh_keyword">text</a> Reset <span class="sh_symbol">-</span>command <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/list" class="sh_keyword">list</a> reset <span class="sh_variable">$c</span> <span class="sh_variable">$running</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/global" class="sh_keyword">global</a> winners
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> winners <span class="sh_cbracket">{}</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> finish <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/lindex" class="sh_keyword">lindex</a> <span class="sh_symbol">[</span><span class="sh_variable">$c</span> bbox finish<span class="sh_symbol">]</span> <span class="sh_number">2</span><span class="sh_symbol">]+</span><span class="sh_number">10</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/while" class="sh_keyword">while</a> <span class="sh_cbracket">{</span><span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/llength" class="sh_keyword">llength</a> <span class="sh_variable">$winners</span><span class="sh_symbol">]&lt;</span><span class="sh_number">3</span><span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
        <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> this <span class="sh_symbol">[</span>lpick <span class="sh_variable">$running</span><span class="sh_symbol">]</span>
        <span class="sh_variable">$c</span> move <span class="sh_variable">$this</span> <span class="sh_symbol">[</span>lpick <span class="sh_cbracket">{</span><span class="sh_number">0</span> <span class="sh_number">1</span> <span class="sh_number">2</span> <span class="sh_number">3</span><span class="sh_cbracket">}</span><span class="sh_symbol">]</span> <span class="sh_number">0</span>
        update
        <a href="https://wiki.tcl-lang.org/page/if" class="sh_keyword">if</a> <span class="sh_cbracket">{</span><span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/lindex" class="sh_keyword">lindex</a> <span class="sh_symbol">[</span><span class="sh_variable">$c</span> bbox <span class="sh_variable">$this</span><span class="sh_symbol">]</span> <span class="sh_number">2</span><span class="sh_symbol">]&gt;</span><span class="sh_variable">$finish</span><span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
            <a href="https://wiki.tcl-lang.org/page/lappend" class="sh_keyword">lappend</a> winners <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/llength" class="sh_keyword">llength</a> <span class="sh_variable">$winners</span><span class="sh_symbol">]+</span><span class="sh_number">1</span><span class="sh_symbol">]:[</span><a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> <span class="sh_symbol">::</span><span class="sh_variable">$this</span><span class="sh_symbol">]</span>
            lremove running <span class="sh_variable">$this</span>
        <span class="sh_cbracket">}</span>
    <span class="sh_cbracket">}</span>
<span class="sh_cbracket">}</span>
<a href="https://wiki.tcl-lang.org/page/proc" class="sh_keyword">proc</a> reset <span class="sh_cbracket">{</span>c tags<span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
    <span class="sh_variable">$c</span><span class="sh_number">.</span><a href="https://wiki.tcl-lang.org/page/button" class="sh_keyword">button</a> config <span class="sh_symbol">-</span><a href="https://wiki.tcl-lang.org/page/text" class="sh_keyword">text</a> Start <span class="sh_symbol">-</span>command <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/list" class="sh_keyword">list</a> start <span class="sh_variable">$c</span> <span class="sh_variable">$tags</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/foreach" class="sh_keyword">foreach</a> i <span class="sh_variable">$tags</span> <span class="sh_cbracket">{</span>
        <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> x <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/lindex" class="sh_keyword">lindex</a> <span class="sh_symbol">[</span><span class="sh_variable">$c</span> bbox <span class="sh_variable">$i</span><span class="sh_symbol">]</span> <span class="sh_number">0</span><span class="sh_symbol">]</span>
        <span class="sh_variable">$c</span> move <span class="sh_variable">$i</span> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> <span class="sh_cbracket">{</span><span class="sh_number">60</span><span class="sh_symbol">-</span><span class="sh_variable">$x</span><span class="sh_cbracket">}</span><span class="sh_symbol">]</span> <span class="sh_number">0</span>
    <span class="sh_cbracket">}</span>
<span class="sh_cbracket">}</span>
<a href="https://wiki.tcl-lang.org/page/proc" class="sh_keyword">proc</a> lpick L <span class="sh_cbracket">{</span><a href="https://wiki.tcl-lang.org/page/lindex" class="sh_keyword">lindex</a> <span class="sh_variable">$L</span> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/expr" class="sh_keyword">expr</a> int<span class="sh_symbol">(</span>rand<span class="sh_symbol">()*[</span><a href="https://wiki.tcl-lang.org/page/llength" class="sh_keyword">llength</a> <span class="sh_variable">$L</span><span class="sh_symbol">])]</span><span class="sh_cbracket">}</span>
<a href="https://wiki.tcl-lang.org/page/proc" class="sh_keyword">proc</a> lremove <span class="sh_cbracket">{</span>listName what<span class="sh_cbracket">}</span> <span class="sh_cbracket">{</span>
    <a href="https://wiki.tcl-lang.org/page/upvar" class="sh_keyword">upvar</a> <span class="sh_number">1</span> <span class="sh_variable">$listName</span> <a href="https://wiki.tcl-lang.org/page/list" class="sh_keyword">list</a>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> pos  <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/lsearch" class="sh_keyword">lsearch</a> <span class="sh_variable">$list</span> <span class="sh_variable">$what</span><span class="sh_symbol">]</span>
    <a href="https://wiki.tcl-lang.org/page/set" class="sh_keyword">set</a> <a href="https://wiki.tcl-lang.org/page/list" class="sh_keyword">list</a> <span class="sh_symbol">[</span><a href="https://wiki.tcl-lang.org/page/lreplace" class="sh_keyword">lreplace</a> <span class="sh_variable">$list</span> <span class="sh_variable">$pos</span> <span class="sh_variable">$pos</span><span class="sh_symbol">]</span>
<span class="sh_cbracket">}</span>
<a href="https://wiki.tcl-lang.org/page/bind" class="sh_keyword">bind</a> <span class="sh_symbol">.</span> <span class="sh_symbol">&lt;</span>space<span class="sh_symbol">&gt;</span> <span class="sh_cbracket">{</span><a href="https://wiki.tcl-lang.org/page/exec" class="sh_keyword">exec</a> wish <span class="sh_variable">$argv0</span> <span class="sh_symbol">&amp;;</span> <a href="https://wiki.tcl-lang.org/page/exit" class="sh_keyword">exit</a><span class="sh_cbracket">}</span>
main <span class="sh_variable">$horses</span></pre></div><hr><div class="mkup_centered"><table class="mkup_categories"><tbody><tr><td class="mkup_td"><a class="mkup_a" href="https://wiki.tcl-lang.org/page/Category+Games">Category Games</a></td></tr></tbody></table></div>
</div>
</div>
<div class="row">
<div class="col-xs-12">
<div class="Footer">Updated 2012-11-21 18:38:19</div>
</div>
</div>
</div>

<script src="./Horseracing in Tcl_files/jquery.min.js.download"></script>
<script src="./Horseracing in Tcl_files/jquery.tablesorter.combined.js.download"></script>

<script src="./Horseracing in Tcl_files/bootstrap.min.js.download"></script>
<script type="text/javascript" src="./Horseracing in Tcl_files/nikit.js.download"></script>
<script type="text/javascript" src="./Horseracing in Tcl_files/sh_main.js.download"></script>
<script type="text/javascript" src="./Horseracing in Tcl_files/sh_tcl.js.download"></script>
<script type="text/javascript" src="./Horseracing in Tcl_files/sh_c.js.download"></script>
<script type="text/javascript" src="./Horseracing in Tcl_files/sh_cpp.js.download"></script>
<script src="./Horseracing in Tcl_files/api.js.download"></script>
<script>var clipboard = new ClipboardJS('.copybtn', {
  text: function(trigger) {
    return document.querySelector(trigger.getAttribute('data-clipboard-target')).textContent + '\n';
  }
});
sort_tables();
</script>


</body></html>