[BACK]Return to default_homework.lcpm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/default_homework.lcpm between versions 1.172.2.1 and 1.173

version 1.172.2.1, 2019/04/03 22:46:30 version 1.173, 2017/02/07 21:24:29
Line 309  sub caparesponse_check_list { Line 309  sub caparesponse_check_list {
  #for numerical problems split off the unit   #for numerical problems split off the unit
         my $part1;          my $part1;
         my $part2;          my $part2;
           my $match_algebra = qr{^(.*[^\s])\s+([^\s]+)$};
           # FIXME: with the above regexp, algebra with spaces will not be evaluated correctly
           my $match_numerical_units = qr{^([\d\.\,\s\$]*(?:(?:[xX\*]10[\^\*]*|[eE]*)[\+\-]*\d*)*(?:^|\S)\d+)([\$\s\w\^\*\/\(\)\+\-]*[^\d\.\s\,][\$\s\w\^\*\/\(\)\+\-]*)$};
         if ($allowalgebra) {          if ($allowalgebra) {
            ($part1,$part2)=($responses->[0][-1]=~ /^(.*[^\s])\s+([^\s]+)$/);              ($part1,$part2) = ($responses->[0][-1] =~ /$match_algebra/); 
         } else {          } else {
            ($part1,$part2)=($responses->[0][-1]=~ /^([\d\.\,\s\$]*(?:(?:[xX\*]10[\^\*]*|[eE]*)[\+\-]*\d*)*(?:^|\S)\d+)([\$\s\w\^\*\/\(\)\+\-]*[^\d\.\s\,][\$\s\w\^\*\/\(\)\+\-]*)$/);             ($part1,$part2) = ($responses->[0][-1] =~ /$match_numerical_units/);
         }          }
         if (defined($part1) && defined($part2)) {          if (defined($part1) && defined($part2)) {
     $responses->[0][-1]=$part1;      $responses->[0][-1]=$part1;
Line 327  sub caparesponse_check_list { Line 330  sub caparesponse_check_list {
                     }                      }
                 }                  }
             }              }
               if (scalar(@$responses) > 0 && defined $answerunit) {
                   # there are several response values, units should be the same for all
                   $part2 =~ s/^\s+|\s+$//g;
                   for (my $i=1; $i<scalar(@$responses); $i++) {
                       my $element = $responses->[$i][-1];
                       my ($part1i, $part2i);
                       if ($allowalgebra) {
                           ($part1i, $part2i) = ($element =~ /$match_algebra/); 
                       } else {
                           ($part1i, $part2i) = ($element =~ /$match_numerical_units/);
                       }
                       $part2i =~ s/^\s+|\s+$//g;
                       if (!defined $part2i) {
                           return 'NO_UNIT';
                       } elsif ($part2i ne $part2) {
                           return ('UNIT_FAIL', "$part2 $part2i");
                       } else {
                           $responses->[$i][-1] = $part1i;
                       }
                   }
               }
  }   }
     }      }
     $unit=~s/\s//;      $unit=~s/\s//;
Line 632  sub hinton { Line 656  sub hinton {
 sub random {  sub random {
     my ($start,$end,$step)=@_;      my ($start,$end,$step)=@_;
     if ( ! $hidden::RANDOMINIT ) {      if ( ! $hidden::RANDOMINIT ) {
         if ($external::randomseed == 0) { $external::randomseed=1; }   if ($external::randomseed == 0) { $external::randomseed=1; }
         if ($external::randomseed =~/,/) {   if ($external::randomseed =~/,/) {
             my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed);      my ($num1,$num2)=split(/,/,$external::randomseed);
             if ((!$num1) || ($num1 > 2147483398)) {      &random_set_seed(1,abs($num1));
                 &random_set_seed_from_phrase($external::randomseed);   } elsif ($external::randomseed =~/:/) {
             } else {      my ($num1,$num2)=split(/:/,$external::randomseed);
                 &random_set_seed(1,$num1);      &random_set_seed(abs($num1),abs($num2));
             }   } else {
         } elsif ($external::randomseed =~/:/) {      &random_set_seed(1,int(abs($external::randomseed)));
             my ($num1,$num2) = map { abs($_); } split(/:/,$external::randomseed);   }
             if ((!$num1) || (!$num2) || ($num1 > 2147483562) || ($num2 > 2147483398)) {  
                 &random_set_seed_from_phrase($external::randomseed);  
             } else {  
                 &random_set_seed($num1,$num2);  
             }  
         } else {  
             my $num1 = int(abs($external::randomseed));  
             if ((!$num1) || ($num1 > 2147483398)) {  
                 &random_set_seed_from_phrase($external::randomseed);  
             } else {  
                 &random_set_seed(1,$num1);  
             }  
         }  
  &math_random_uniform();   &math_random_uniform();
  $hidden::RANDOMINIT=1;   $hidden::RANDOMINIT=1;
     }      }
Removed from v.1.172.2.1  
changed lines
  Added in v.1.173

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>