version 1.62, 2002/12/02 17:06:08
|
version 1.63, 2003/01/07 22:13:07
|
Line 278 sub whichfoils {
|
Line 278 sub whichfoils {
|
#pick a true statement |
#pick a true statement |
my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1)); |
my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1)); |
&Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue"); |
&Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue"); |
my $numinserted; |
|
my (@toplist, @bottomlist); |
my (@toplist, @bottomlist); |
my $topcount=0; |
my $topcount=0; |
# assign everyone to either toplist/bottomlist or whichfalse |
# assign everyone to either toplist/bottomlist or whichfalse |
# which false is randomized, toplist bottomlist are in order |
# which false is randomized, toplist bottomlist are in order |
while ((($numinserted) < $max-1) && ($#falselist > -1)) { |
while ((($#whichfalse) < $max-2) && ($#falselist > -1)) { |
&Apache::lonxml::debug("Have $#whichfalse max is $max"); |
&Apache::lonxml::debug("Have $#whichfalse max is $max"); |
my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1)); |
my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1)); |
&Apache::lonxml::debug("From $#falselist elms, picking $afalse"); |
&Apache::lonxml::debug("From $#falselist elms, picking $afalse"); |