annotate libphobos/libdruntime/rt/util/random.d @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 /**
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 * Random number generators for internal usage.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 *
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 * Copyright: Copyright Digital Mars 2014.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 * License: $(WEB www.boost.org/LICENSE_1_0.txt, Boost License 1.0).
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 module rt.util.random;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 struct Rand48
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 private ulong rng_state;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 @safe @nogc nothrow:
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 void defaultSeed()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 import ctime = core.stdc.time : time;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 seed(cast(uint)ctime.time(null));
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 pure:
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 void seed(uint seedval)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 assert(seedval);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26 rng_state = cast(ulong)seedval << 16 | 0x330e;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 popFront();
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30 auto opCall()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32 auto result = front;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 popFront();
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 return result;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
37 @property uint front()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
38 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
39 return cast(uint)(rng_state >> 16);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
40 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
41
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
42 void popFront()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
43 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
44 immutable ulong a = 25214903917;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
45 immutable ulong c = 11;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
46 immutable ulong m_mask = (1uL << 48uL) - 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
47 rng_state = (a*rng_state+c) & m_mask;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
48 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
49
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
50 enum empty = false;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
51 }