loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.54, 2002/11/13 23:05:46	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(1,$external::randomseed);	if ($external::randomseed == 0) { $external::randomseed=1; }
	&random_set_seed(1,int(abs($external::randomseed)));
&math_random_uniform();	&math_random_uniform();
$hidden::RANDOMINIT=1;	$hidden::RANDOMINIT=1;
}	}
Line 566 sub map {	Line 567 sub map {
}	}
}	}
}	}
&random_set_seed(@seed);	&random_set_seed(@oldseed);
return '';	return '';
}	}