mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-12 11:29:30 +00:00
247 lines
14 KiB
Go
247 lines
14 KiB
Go
// Copyright 2009 The Go Authors. All rights reserved.
|
|
// Use of this source code is governed by a BSD-style
|
|
// license that can be found in the LICENSE file.
|
|
|
|
package rand
|
|
|
|
/*
|
|
* Uniform distribution
|
|
*
|
|
* algorithm by
|
|
* DP Mitchell and JA Reeds
|
|
*/
|
|
|
|
const (
|
|
_LEN = 607
|
|
_TAP = 273
|
|
_MAX = 1 << 63
|
|
_MASK = _MAX - 1
|
|
_A = 48271
|
|
_M = (1 << 31) - 1
|
|
_Q = 44488
|
|
_R = 3399
|
|
)
|
|
|
|
var (
|
|
// cooked random numbers
|
|
// the state of the rng
|
|
// after 780e10 iterations
|
|
rng_cooked [_LEN]int64 = [...]int64{
|
|
5041579894721019882, 4646389086726545243, 1395769623340756751, 5333664234075297259,
|
|
2875692520355975054, 9033628115061424579, 7143218595135194537, 4812947590706362721,
|
|
7937252194349799378, 5307299880338848416, 8209348851763925077, 2115741599318814044,
|
|
4593015457530856296, 8140875735541888011, 3319429241265089026, 8619815648190321034,
|
|
1727074043483619500, 113108499721038619, 4569519971459345583, 5062833859075314731,
|
|
2387618771259064424, 2716131344356686112, 6559392774825876886, 7650093201692370310,
|
|
7684323884043752161, 257867835996031390, 6593456519409015164, 271327514973697897,
|
|
2789386447340118284, 1065192797246149621, 3344507881999356393, 4459797941780066633,
|
|
7465081662728599889, 1014950805555097187, 4449440729345990775, 3481109366438502643,
|
|
2418672789110888383, 5796562887576294778, 4484266064449540171, 3738982361971787048,
|
|
4523597184512354423, 10530508058128498, 8633833783282346118, 2625309929628791628,
|
|
8660405965245884302, 10162832508971942, 6540714680961817391, 7031802312784620857,
|
|
6240911277345944669, 831864355460801054, 8004434137542152891, 2116287251661052151,
|
|
2202309800992166967, 9161020366945053561, 4069299552407763864, 4936383537992622449,
|
|
457351505131524928, 342195045928179354, 2847771682816600509, 2068020115986376518,
|
|
4368649989588021065, 887231587095185257, 5563591506886576496, 6816225200251950296,
|
|
5616972787034086048, 8471809303394836566, 1686575021641186857, 4045484338074262002,
|
|
4244156215201778923, 7848217333783577387, 5632136521049761902, 833283142057835272,
|
|
9029726508369077193, 3243583134664087292, 4316371101804477087, 8937849979965997980,
|
|
6446940406810434101, 1679342092332374735, 6050638460742422078, 6993520719509581582,
|
|
7640877852514293609, 5881353426285907985, 812786550756860885, 4541845584483343330,
|
|
2725470216277009086, 4980675660146853729, 5210769080603236061, 8894283318990530821,
|
|
6326442804750084282, 1495812843684243920, 7069751578799128019, 7370257291860230865,
|
|
6756929275356942261, 4706794511633873654, 7824520467827898663, 8549875090542453214,
|
|
33650829478596156, 1328918435751322643, 7297902601803624459, 1011190183918857495,
|
|
2238025036817854944, 5147159997473910359, 896512091560522982, 2659470849286379941,
|
|
6097729358393448602, 1731725986304753684, 4106255841983812711, 8327155210721535508,
|
|
8477511620686074402, 5803876044675762232, 8435417780860221662, 5988852856651071244,
|
|
4715837297103951910, 7566171971264485114, 505808562678895611, 5070098180695063370,
|
|
842110666775871513, 572156825025677802, 1791881013492340891, 3393267094866038768,
|
|
3778721850472236509, 2352769483186201278, 1292459583847367458, 8897907043675088419,
|
|
5781809037144163536, 2733958794029492513, 5092019688680754699, 8996124554772526841,
|
|
4234737173186232084, 5027558287275472836, 4635198586344772304, 8687338893267139351,
|
|
5907508150730407386, 784756255473944452, 972392927514829904, 5422057694808175112,
|
|
5158420642969283891, 9048531678558643225, 2407211146698877100, 7583282216521099569,
|
|
3940796514530962282, 3341174631045206375, 3095313889586102949, 7405321895688238710,
|
|
5832080132947175283, 7890064875145919662, 8184139210799583195, 1149859861409226130,
|
|
1464597243840211302, 4641648007187991873, 3516491885471466898, 956288521791657692,
|
|
6657089965014657519, 5220884358887979358, 1796677326474620641, 5340761970648932916,
|
|
1147977171614181568, 5066037465548252321, 2574765911837859848, 1085848279845204775,
|
|
3350107529868390359, 6116438694366558490, 2107701075971293812, 1803294065921269267,
|
|
2469478054175558874, 7368243281019965984, 3791908367843677526, 185046971116456637,
|
|
2257095756513439648, 7217693971077460129, 909049953079504259, 7196649268545224266,
|
|
5637660345400869599, 3955544945427965183, 8057528650917418961, 4139268440301127643,
|
|
6621926588513568059, 1373361136802681441, 6527366231383600011, 3507654575162700890,
|
|
9202058512774729859, 1954818376891585542, 6640380907130175705, 8299563319178235687,
|
|
3901867355218954373, 7046310742295574065, 6847195391333990232, 1572638100518868053,
|
|
8850422670118399721, 3631909142291992901, 5158881091950831288, 2882958317343121593,
|
|
4763258931815816403, 6280052734341785344, 4243789408204964850, 2043464728020827976,
|
|
6545300466022085465, 4562580375758598164, 5495451168795427352, 1738312861590151095,
|
|
553004618757816492, 6895160632757959823, 8233623922264685171, 7139506338801360852,
|
|
8550891222387991669, 5535668688139305547, 2430933853350256242, 5401941257863201076,
|
|
8159640039107728799, 6157493831600770366, 7632066283658143750, 6308328381617103346,
|
|
3681878764086140361, 3289686137190109749, 6587997200611086848, 244714774258135476,
|
|
4079788377417136100, 8090302575944624335, 2945117363431356361, 864324395848741045,
|
|
3009039260312620700, 8430027460082534031, 401084700045993341, 7254622446438694921,
|
|
4707864159563588614, 5640248530963493951, 5982507712689997893, 3315098242282210105,
|
|
5503847578771918426, 3941971367175193882, 8118566580304798074, 3839261274019871296,
|
|
7062410411742090847, 741381002980207668, 6027994129690250817, 2497829994150063930,
|
|
6251390334426228834, 1368930247903518833, 8809096399316380241, 6492004350391900708,
|
|
2462145737463489636, 404828418920299174, 4153026434231690595, 261785715255475940,
|
|
5464715384600071357, 592710404378763017, 6764129236657751224, 8513655718539357449,
|
|
5820343663801914208, 385298524683789911, 5224135003438199467, 6303131641338802145,
|
|
7150122561309371392, 368107899140673753, 3115186834558311558, 2915636353584281051,
|
|
4782583894627718279, 6718292300699989587, 8387085186914375220, 3387513132024756289,
|
|
4654329375432538231, 8930667561363381602, 5374373436876319273, 7623042350483453954,
|
|
7725442901813263321, 9186225467561587250, 4091027289597503355, 2357631606492579800,
|
|
2530936820058611833, 1636551876240043639, 5564664674334965799, 1452244145334316253,
|
|
2061642381019690829, 1279580266495294036, 9108481583171221009, 6023278686734049809,
|
|
5007630032676973346, 2153168792952589781, 6720334534964750538, 6041546491134794105,
|
|
3433922409283786309, 2285479922797300912, 3110614940896576130, 6366559590722842893,
|
|
5418791419666136509, 7163298419643543757, 4891138053923696990, 580618510277907015,
|
|
1684034065251686769, 4429514767357295841, 330346578555450005, 1119637995812174675,
|
|
7177515271653460134, 4589042248470800257, 7693288629059004563, 143607045258444228,
|
|
246994305896273627, 866417324803099287, 6473547110565816071, 3092379936208876896,
|
|
2058427839513754051, 5133784708526867938, 8785882556301281247, 6149332666841167611,
|
|
8585842181454472135, 6137678347805511274, 2070447184436970006, 5708223427705576541,
|
|
5999657892458244504, 4358391411789012426, 325123008708389849, 6837621693887290924,
|
|
4843721905315627004, 6010651222149276415, 5398352198963874652, 4602025990114250980,
|
|
1044646352569048800, 9106614159853161675, 829256115228593269, 4919284369102997000,
|
|
2681532557646850893, 3681559472488511871, 5307999518958214035, 6334130388442829274,
|
|
2658708232916537604, 1163313865052186287, 581945337509520675, 3648778920718647903,
|
|
4423673246306544414, 1620799783996955743, 220828013409515943, 8150384699999389761,
|
|
4287360518296753003, 4590000184845883843, 5513660857261085186, 6964829100392774275,
|
|
478991688350776035, 8746140185685648781, 228500091334420247, 1356187007457302238,
|
|
3019253992034194581, 3152601605678500003, 430152752706002213, 5559581553696971176,
|
|
4916432985369275664, 663574931734554391, 3420773838927732076, 2868348622579915573,
|
|
1999319134044418520, 3328689518636282723, 2587672709781371173, 1517255313529399333,
|
|
3092343956317362483, 3662252519007064108, 972445599196498113, 7664865435875959367,
|
|
1708913533482282562, 6917817162668868494, 3217629022545312900, 2570043027221707107,
|
|
8739788839543624613, 2488075924621352812, 4694002395387436668, 4559628481798514356,
|
|
2997203966153298104, 1282559373026354493, 240113143146674385, 8665713329246516443,
|
|
628141331766346752, 4571950817186770476, 1472811188152235408, 7596648026010355826,
|
|
6091219417754424743, 7834161864828164065, 7103445518877254909, 4390861237357459201,
|
|
4442653864240571734, 8903482404847331368, 622261699494173647, 6037261250297213248,
|
|
504404948065709118, 7275215526217113061, 1011176780856001400, 2194750105623461063,
|
|
2623071828615234808, 5157313728073836108, 3738405111966602044, 2539767524076729570,
|
|
2467284396349269342, 5256026990536851868, 7841086888628396109, 6640857538655893162,
|
|
1202087339038317498, 2113514992440715978, 7534350895342931403, 4925284734898484745,
|
|
5145623771477493805, 8225140880134972332, 2719520354384050532, 9132346697815513771,
|
|
4332154495710163773, 7137789594094346916, 6994721091344268833, 6667228574869048934,
|
|
655440045726677499, 59934747298466858, 6124974028078036405, 8957774780655365418,
|
|
2332206071942466437, 1701056712286369627, 3154897383618636503, 1637766181387607527,
|
|
2460521277767576533, 197309393502684135, 643677854385267315, 2543179307861934850,
|
|
4350769010207485119, 4754652089410667672, 2015595502641514512, 7999059458976458608,
|
|
4287946071480840813, 8362686366770308971, 6486469209321732151, 3617727845841796026,
|
|
7554353525834302244, 4450022655153542367, 1605195740213535749, 5327014565305508387,
|
|
4626575813550328320, 2692222020597705149, 241045573717249868, 5098046974627094010,
|
|
7916882295460730264, 884817090297530579, 5329160409530630596, 7790979528857726136,
|
|
4955070238059373407, 4918537275422674302, 3008076183950404629, 3007769226071157901,
|
|
2470346235617803020, 8928702772696731736, 7856187920214445904, 4474874585391974885,
|
|
7900176660600710914, 2140571127916226672, 2425445057265199971, 2486055153341847830,
|
|
4186670094382025798, 1883939007446035042, 8808666044074867985, 3734134241178479257,
|
|
4065968871360089196, 6953124200385847784, 1305686814738899057, 1637739099014457647,
|
|
3656125660947993209, 3966759634633167020, 3106378204088556331, 6328899822778449810,
|
|
4565385105440252958, 1979884289539493806, 2331793186920865425, 3783206694208922581,
|
|
8464961209802336085, 2843963751609577687, 3030678195484896323, 4793717574095772604,
|
|
4459239494808162889, 402587895800087237, 8057891408711167515, 4541888170938985079,
|
|
1042662272908816815, 5557303057122568958, 2647678726283249984, 2144477441549833761,
|
|
5806352215355387087, 7117771003473903623, 5916597177708541638, 462597715452321361,
|
|
8833658097025758785, 5970273481425315300, 563813119381731307, 2768349550652697015,
|
|
1598828206250873866, 5206393647403558110, 6235043485709261823, 3152217402014639496,
|
|
8469693267274066490, 125672920241807416, 5311079624024060938, 6663754932310491587,
|
|
8736848295048751716, 4488039774992061878, 5923302823487327109, 140891791083103236,
|
|
7414942793393574290, 7990420780896957397, 4317817392807076702, 3625184369705367340,
|
|
2740722765288122703, 5743100009702758344, 5997898640509039159, 8854493341352484163,
|
|
5242208035432907801, 701338899890987198, 7609280429197514109, 3020985755112334161,
|
|
6651322707055512866, 2635195723621160615, 5144520864246028816, 1035086515727829828,
|
|
1567242097116389047, 8172389260191636581, 6337820351429292273, 2163012566996458925,
|
|
2743190902890262681, 1906367633221323427, 6011544915663598137, 5932255307352610768,
|
|
2241128460406315459, 895504896216695588, 3094483003111372717, 4583857460292963101,
|
|
9079887171656594975, 8839289181930711403, 5762740387243057873, 4225072055348026230,
|
|
1838220598389033063, 3801620336801580414, 8823526620080073856, 1776617605585100335,
|
|
7899055018877642622, 5421679761463003041, 5521102963086275121, 4248279443559365898,
|
|
8735487530905098534, 1760527091573692978, 7142485049657745894, 8222656872927218123,
|
|
4969531564923704323, 3394475942196872480, 6424174453260338141, 359248545074932887,
|
|
3273651282831730598, 6797106199797138596, 3030918217665093212, 145600834617314036,
|
|
6036575856065626233, 740416251634527158, 7080427635449935582, 6951781370868335478,
|
|
399922722363687927, 294902314447253185, 7844950936339178523, 880320858634709042,
|
|
6192655680808675579, 411604686384710388, 9026808440365124461, 6440783557497587732,
|
|
4615674634722404292, 539897290441580544, 2096238225866883852, 8751955639408182687,
|
|
1907224908052289603, 7381039757301768559, 6157238513393239656, 7749994231914157575,
|
|
8629571604380892756, 5280433031239081479, 7101611890139813254, 2479018537985767835,
|
|
7169176924412769570, 7942066497793203302, 1357759729055557688, 2278447439451174845,
|
|
3625338785743880657, 6477479539006708521, 8976185375579272206, 5511371554711836120,
|
|
1326024180520890843, 7537449876596048829, 5464680203499696154, 3189671183162196045,
|
|
6346751753565857109, 241159987320630307, 3095793449658682053, 8978332846736310159,
|
|
2902794662273147216, 7208698530190629697, 7276901792339343736, 1732385229314443140,
|
|
4133292154170828382, 2918308698224194548, 1519461397937144458, 5293934712616591764,
|
|
4922828954023452664, 2879211533496425641, 5896236396443472108, 8465043815351752425,
|
|
7329020396871624740, 8915471717014488588, 2944902635677463047, 7052079073493465134,
|
|
8382142935188824023, 9103922860780351547, 4152330101494654406,
|
|
}
|
|
)
|
|
|
|
type rngSource struct {
|
|
tap int // index into vec
|
|
feed int // index into vec
|
|
vec [_LEN]int64 // current feedback register
|
|
}
|
|
|
|
// seed rng x[n+1] = 48271 * x[n] mod (2**31 - 1)
|
|
func seedrand(x int32) int32 {
|
|
hi := x / _Q
|
|
lo := x % _Q
|
|
x = _A*lo - _R*hi
|
|
if x < 0 {
|
|
x += _M
|
|
}
|
|
return x
|
|
}
|
|
|
|
// Seed uses the provided seed value to initialize the generator to a deterministic state.
|
|
func (rng *rngSource) Seed(seed int64) {
|
|
rng.tap = 0
|
|
rng.feed = _LEN - _TAP
|
|
|
|
seed = seed % _M
|
|
if seed < 0 {
|
|
seed += _M
|
|
}
|
|
if seed == 0 {
|
|
seed = 89482311
|
|
}
|
|
|
|
x := int32(seed)
|
|
for i := -20; i < _LEN; i++ {
|
|
x = seedrand(x)
|
|
if i >= 0 {
|
|
var u int64
|
|
u = int64(x) << 40
|
|
x = seedrand(x)
|
|
u ^= int64(x) << 20
|
|
x = seedrand(x)
|
|
u ^= int64(x)
|
|
u ^= rng_cooked[i]
|
|
rng.vec[i] = u & _MASK
|
|
}
|
|
}
|
|
}
|
|
|
|
// Int63 returns a non-negative pseudo-random 63-bit integer as an int64.
|
|
func (rng *rngSource) Int63() int64 {
|
|
rng.tap--
|
|
if rng.tap < 0 {
|
|
rng.tap += _LEN
|
|
}
|
|
|
|
rng.feed--
|
|
if rng.feed < 0 {
|
|
rng.feed += _LEN
|
|
}
|
|
|
|
x := (rng.vec[rng.feed] + rng.vec[rng.tap]) & _MASK
|
|
rng.vec[rng.feed] = x
|
|
return x
|
|
}
|