<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Oops there was a typo in my suggested
Set::AtRandom</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Here's the one I'm actually using:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>atRandom: aGenerator<BR> "Answer a random
element of the receiver. Uses aGenerator which<BR> should be kept by
the user in a variable and used every time. Use<BR> this instead of
#atRandom for better uniformity of random numbers <BR> because only you use
the generator. Causes an error if self has no
<BR> elements."<BR> | ind entry |<BR> entry _
nil.<BR> [entry == nil] whileTrue: [<BR> self
emptyCheck.<BR> ind _ aGenerator nextInt: array
size.<BR> entry _ array at:
ind.<BR> ].<BR> ^entry.</FONT></DIV></BODY></HTML>