<div dir="ltr"><div><div>The current Racket algorithm has an error:<br><br>(define counts (build-vector 10 identity))<br><br></div>This sets the counts to their indices, meaning e.g. 9 was pre-counted 9 times.  Switch the first line of the executable portion to run only say 3 trials to see the effects.  It should be:<br>
<br></div><div>(define counts (make-vector 10))<br></div><div><br></div>Also, multiplying count by (random) should just be (random count):<br><pre class="">(when (< (* count (random)) n)<br>              (vector-set! vec (random n) item))))<br>
<br></pre><pre class="">becomes<br><br>(when (< (random count) n)<br>              (vector-set! vec (random n) item))))<br></pre><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Mar 10, 2014 at 2:19 AM, Manfred Lotz <span dir="ltr"><<a href="mailto:manfred.lotz@arcor.de" target="_blank">manfred.lotz@arcor.de</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Justfor the records: I updated the version at<br>
  <a href="http://rosettacode.org/wiki/Knuth%27s_algorithm_S#Racket" target="_blank">http://rosettacode.org/wiki/Knuth%27s_algorithm_S#Racket</a><br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Manfred<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
<br>
____________________<br>
  Racket Users list:<br>
  <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
</div></div></blockquote></div><br></div>