rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.140, 2011/08/09 09:15:50	version 1.142, 2011/10/20 17:14:19
Line 297 sub loadmap {	Line 297 sub loadmap {
# processing the randomorder parameter if it is set, not	# processing the randomorder parameter if it is set, not
# randompick.	# randompick.

@map_ids=&math::Random::random_permutation(@map_ids);	@map_ids=&Math::Random::random_permutation(@map_ids);
}	}


Line 801 sub simplify {	Line 801 sub simplify {
# 8&8=8	# 8&8=8
$expression=~s/([^_\.\d])([_\.\d]+)\&\2([^_\.\d])/$1$2$3/g;	$expression=~s/([^_\.\d])([_\.\d]+)\&\2([^_\.\d])/$1$2$3/g;
# 8\|8=8	# 8\|8=8
$expression=~s/([^_\.\d])([_\.\d]+)\\|\2([^_\.\d])/$1$2$3/g;	$expression=~s/([^_\.\d])([_\.\d]+)(?:\\|\2)+([^_\.\d])/$1$2$3/g;
# (5&3)&4=5&3&4	# (5&3)&4=5&3&4
$expression=~s/$([_\.\d]+)((?:\&[_\.\d]+)+)$\&([_\.\d]+[^_\.\d])/$1$2\&$3/g;	$expression=~s/$([_\.\d]+)((?:\&[_\.\d]+)+)$\&([_\.\d]+[^_\.\d])/$1$2\&$3/g;
# (((5&3)\|(4&6)))=((5&3)\|(4&6))	# (((5&3)\|(4&6)))=((5&3)\|(4&6))