Diff for /loncom/homework/default_homework.lcpm between versions 1.175 and 1.176

version 1.175, 2018/09/12 22:00:31 version 1.176, 2019/04/03 21:37:11
Line 656  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)=split(/,/,$external::randomseed);              my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed);
     &random_set_seed(1,abs($num1));              if ((!$num1) || ($num1 > 2147483398)) {
  } elsif ($external::randomseed =~/:/) {                  &random_set_seed_from_phrase($external::randomseed);
     my ($num1,$num2)=split(/:/,$external::randomseed);              } else {
     &random_set_seed(abs($num1),abs($num2));                  &random_set_seed(1,$num1);
  } else {              }
     &random_set_seed(1,int(abs($external::randomseed)));          } elsif ($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.175  
changed lines
  Added in v.1.176


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