       current (first n)]
               (if (and current
                        (or (nil? high)
                            (&lt; high current)))
                 (dosync (alter r assoc-in hs current)))))
           {:select [:score :all]})</code></pre>
</div><div>
    <span id="game-simulation"></span>
    <h3>6.4 &nbsp;&nbsp; Game Simulation</h3>
</div><div><p>Functions for simulation are defined with the following parameters:</p><ul><li><code>sim-game</code> and <code>sim-n-games</code> are used to upd