version 1.70, 2003/04/18 17:10:08
|
version 1.72, 2003/06/20 04:05:13
|
Line 291 sub whichfoils {
|
Line 291 sub whichfoils {
|
} |
} |
} |
} |
#pick a true statement |
#pick a true statement |
|
my $notrue=0; |
|
if (scalar(@truelist) == 0) { $notrue=1; } |
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 (@toplist, @bottomlist); |
my (@toplist, @bottomlist); |
my $topcount=0; |
my $topcount=0; |
|
my $bottomcount=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 ((($#whichfalse) < $max-2) && ($#falselist > -1)) { |
while ((($#whichfalse+$topcount+$bottomcount) < $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"); |
Line 310 sub whichfoils {
|
Line 313 sub whichfoils {
|
$topcount++; |
$topcount++; |
} elsif ($bottom{$afalse}) { |
} elsif ($bottom{$afalse}) { |
$bottomlist[$bottom{$afalse}]=$afalse; |
$bottomlist[$bottom{$afalse}]=$afalse; |
|
$bottomcount++; |
} else { |
} else { |
push (@whichfalse,$afalse); |
push (@whichfalse,$afalse); |
} |
} |
} |
} |
|
&Apache::lonxml::debug("Answer wants $answer"); |
my $truename=$truelist[$whichtrue]; |
my $truename=$truelist[$whichtrue]; |
my $dosplice=1; |
my $dosplice=1; |
|
if ($notrue) { |
|
$dosplice=0; |
|
&Apache::lonxml::error("There are no true statements available.<br />"); |
|
} |
#insert the true statement, keeping track of where it wants to be |
#insert the true statement, keeping track of where it wants to be |
if ($Apache::response::foilgroup{$truename.'.location'} eq 'top' ) { |
if ($Apache::response::foilgroup{$truename.'.location'} eq 'top' && $dosplice) { |
$toplist[$top{$truename}]=$truename; |
$toplist[$top{$truename}]=$truename; |
$answer=-1; |
$answer=-1; |
foreach my $top (reverse(@toplist)) { |
foreach my $top (reverse(@toplist)) { |
Line 325 sub whichfoils {
|
Line 334 sub whichfoils {
|
if ($top eq $truename) { last; } |
if ($top eq $truename) { last; } |
} |
} |
$dosplice=0; |
$dosplice=0; |
} elsif ($Apache::response::foilgroup{$truename.'.location'} eq 'bottom') { |
} elsif ($Apache::response::foilgroup{$truename.'.location'} eq 'bottom' && $dosplice) { |
$bottomlist[$bottom{$truename}]=$truename; |
$bottomlist[$bottom{$truename}]=$truename; |
$answer=-1; |
$answer=-1; |
foreach my $bot (@bottomlist) { |
foreach my $bot (@bottomlist) { |
Line 335 sub whichfoils {
|
Line 344 sub whichfoils {
|
$answer+=$topcount+$#whichfalse+1; |
$answer+=$topcount+$#whichfalse+1; |
$dosplice=0; |
$dosplice=0; |
} else { |
} else { |
if ($topcount>0) { |
if ($topcount>0 || $bottomcount>0) { |
$answer = int(&Math::Random::random_uniform() * ($#whichfalse+1)) |
$answer = int(&Math::Random::random_uniform() * ($#whichfalse+1)) |
+ $topcount; |
+ $topcount; |
} |
} |
} |
} |
|
&Apache::lonxml::debug("Answer now wants $answer"); |
#add the top items to the top, bottom items to the bottom |
#add the top items to the top, bottom items to the bottom |
for (my $i=0;$i<=$#toplist;$i++) { |
for (my $i=0;$i<=$#toplist;$i++) { |
if ($toplist[$i]) { unshift(@whichfalse,$toplist[$i]) } |
if ($toplist[$i]) { unshift(@whichfalse,$toplist[$i]) } |