version 1.117, 2006/09/29 23:10:22
|
version 1.118, 2006/10/02 18:23:38
|
Line 356 sub caparesponse_check_list {
|
Line 356 sub caparesponse_check_list {
|
&init_permutation(scalar(@responselist), |
&init_permutation(scalar(@responselist), |
$LONCAPA::CAPAresponse_answer->{'type'}); |
$LONCAPA::CAPAresponse_answer->{'type'}); |
|
|
|
# possible FIXMEs |
|
# - significant time is spent calling non-safe space routine |
|
# from safe space |
|
# - early outs could be possible with classifying awards is to stratas |
|
# and stopping as so as hitting the top strata |
|
# - some early outs also might be possible with check ing the |
|
# memoized hash of results (is correct even possible? etc.) |
|
|
my (@final_awards,@final_msg); |
my (@final_awards,@final_msg); |
while( &get_permutations_left() ) { |
while( &get_permutations_left() ) { |
my $order = &get_next_permutation(); |
my $order = &get_next_permutation(); |