loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.53, 2002/09/26 21:54:00	version 1.56, 2003/02/10 21:41:25
Line 240 sub hinton {	Line 240 sub hinton {
sub random {	sub random {
my ($start,$end,$step)=@_;	my ($start,$end,$step)=@_;
if ( ! $hidden::RANDOMINIT ) {	if ( ! $hidden::RANDOMINIT ) {
&random_set_seed_from_phrase($external::randomseed);	if ($external::randomseed == 0) { $external::randomseed=1; }
	&random_set_seed(1,int(abs($external::randomseed)));
	&math_random_uniform();
$hidden::RANDOMINIT=1;	$hidden::RANDOMINIT=1;
}	}
if (!defined($step)) { $step=1; }	if (!defined($step)) { $step=1; }
Line 565 sub map {	Line 567 sub map {
}	}
}	}
}	}
&random_set_seed(@seed);	&random_set_seed(@oldseed);
return '';	return '';
}	}