summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/randomlist/randomlist.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/randomlist/randomlist.tex')
-rw-r--r--Master/texmf-dist/tex/generic/randomlist/randomlist.tex34
1 files changed, 17 insertions, 17 deletions
diff --git a/Master/texmf-dist/tex/generic/randomlist/randomlist.tex b/Master/texmf-dist/tex/generic/randomlist/randomlist.tex
index 80832ce90c5..74a6d26422a 100644
--- a/Master/texmf-dist/tex/generic/randomlist/randomlist.tex
+++ b/Master/texmf-dist/tex/generic/randomlist/randomlist.tex
@@ -7,9 +7,9 @@
%% randomlist.dtx (with options: `tex')
%%
%% randomlist.dtx
-%% Copyleft 2013-2016 J.-C. Charpentier & C. Tellechea
+%% Copyleft 2013-2017 J.-C. Charpentier & C. Tellechea
%% Packages `randomlist' to use with (La)eTeX
-%% Copyleft (L) 2013-2016 Jean-C\^ome Charpentier & Christian Tellechea.
+%% Copyleft (L) 2013-2017 Jean-C\^ome Charpentier & Christian Tellechea.
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -98,9 +98,9 @@
\newcount\RL@random@b
\def\RLsetrandomseed#1{%
\ifnum#1=0
- \RL@random \numexpr \time + \year * \month * \day \relax
+ \global\RL@random \numexpr \time + \year * \month * \day \relax
\else
- \RL@random \numexpr \ifnum#1<0 -\fi#1 \relax
+ \global\RL@random \numexpr \ifnum#1<0 -\fi#1 \relax
\fi
}
\ifx\RL@seed\@undefined
@@ -109,24 +109,24 @@
\RLsetrandomseed{\RL@seed}
\fi
\def\RL@nextrand{%
- \RL@random@a=\RL@random
- \divide\RL@random@a 127773
- \RL@random@b=\RL@random@a
- \multiply\RL@random@a -2836
- \multiply\RL@random@b -127773
- \advance\RL@random\RL@random@b
- \multiply\RL@random 16807
- \advance\RL@random\RL@random@a
+ \global\RL@random@a=\RL@random
+ \global\divide\RL@random@a 127773
+ \global\RL@random@b=\RL@random@a
+ \global\multiply\RL@random@a -2836
+ \global\multiply\RL@random@b -127773
+ \global\advance\RL@random\RL@random@b
+ \global\multiply\RL@random 16807
+ \global\advance\RL@random\RL@random@a
\ifnum\RL@random<0
- \advance\RL@random 2147483647
+ \global\advance\RL@random 2147483647
\fi
}
\def\RLuniformdeviate#1#2{%
\RL@nextrand
- \RL@random@a=\RL@random
- \RL@random@b=\RL@random
- \divide\RL@random@a \numexpr#1\relax
- \RL@random@b \numexpr\RL@random@b - \RL@random@a * (#1)\relax
+ \global\RL@random@a=\RL@random
+ \global\RL@random@b=\RL@random
+ \global\divide\RL@random@a \numexpr#1\relax
+ \global\RL@random@b \numexpr\RL@random@b - \RL@random@a * (#1)\relax
\expandafter\edef\csname #2\endcsname{\number\RL@random@b}%
}%
\newtoks\@ListOfList