first commit
This commit is contained in:
didier amyot committed
commit
041c4b57bf
8 files changed
+573
No files matched your search
+11
@@ -0,0 +1,11 @@
|
||||
/target
|
||||
/classes
|
||||
/checkouts
|
||||
pom.xml
|
||||
pom.xml.asc
|
||||
*.jar
|
||||
*.class
|
||||
/.lein-*
|
||||
/.nrepl-port
|
||||
.hgignore
|
||||
.hg/
|
||||
@@ -0,0 +1,214 @@
|
||||
THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS ECLIPSE PUBLIC
|
||||
LICENSE ("AGREEMENT"). ANY USE, REPRODUCTION OR DISTRIBUTION OF THE PROGRAM
|
||||
CONSTITUTES RECIPIENT'S ACCEPTANCE OF THIS AGREEMENT.
|
||||
|
||||
1. DEFINITIONS
|
||||
|
||||
"Contribution" means:
|
||||
|
||||
a) in the case of the initial Contributor, the initial code and
|
||||
documentation distributed under this Agreement, and
|
||||
|
||||
b) in the case of each subsequent Contributor:
|
||||
|
||||
i) changes to the Program, and
|
||||
|
||||
ii) additions to the Program;
|
||||
|
||||
where such changes and/or additions to the Program originate from and are
|
||||
distributed by that particular Contributor. A Contribution 'originates' from
|
||||
a Contributor if it was added to the Program by such Contributor itself or
|
||||
anyone acting on such Contributor's behalf. Contributions do not include
|
||||
additions to the Program which: (i) are separate modules of software
|
||||
distributed in conjunction with the Program under their own license
|
||||
agreement, and (ii) are not derivative works of the Program.
|
||||
|
||||
"Contributor" means any person or entity that distributes the Program.
|
||||
|
||||
"Licensed Patents" mean patent claims licensable by a Contributor which are
|
||||
necessarily infringed by the use or sale of its Contribution alone or when
|
||||
combined with the Program.
|
||||
|
||||
"Program" means the Contributions distributed in accordance with this
|
||||
Agreement.
|
||||
|
||||
"Recipient" means anyone who receives the Program under this Agreement,
|
||||
including all Contributors.
|
||||
|
||||
2. GRANT OF RIGHTS
|
||||
|
||||
a) Subject to the terms of this Agreement, each Contributor hereby grants
|
||||
Recipient a non-exclusive, worldwide, royalty-free copyright license to
|
||||
reproduce, prepare derivative works of, publicly display, publicly perform,
|
||||
distribute and sublicense the Contribution of such Contributor, if any, and
|
||||
such derivative works, in source code and object code form.
|
||||
|
||||
b) Subject to the terms of this Agreement, each Contributor hereby grants
|
||||
Recipient a non-exclusive, worldwide, royalty-free patent license under
|
||||
Licensed Patents to make, use, sell, offer to sell, import and otherwise
|
||||
transfer the Contribution of such Contributor, if any, in source code and
|
||||
object code form. This patent license shall apply to the combination of the
|
||||
Contribution and the Program if, at the time the Contribution is added by the
|
||||
Contributor, such addition of the Contribution causes such combination to be
|
||||
covered by the Licensed Patents. The patent license shall not apply to any
|
||||
other combinations which include the Contribution. No hardware per se is
|
||||
licensed hereunder.
|
||||
|
||||
c) Recipient understands that although each Contributor grants the licenses
|
||||
to its Contributions set forth herein, no assurances are provided by any
|
||||
Contributor that the Program does not infringe the patent or other
|
||||
intellectual property rights of any other entity. Each Contributor disclaims
|
||||
any liability to Recipient for claims brought by any other entity based on
|
||||
infringement of intellectual property rights or otherwise. As a condition to
|
||||
exercising the rights and licenses granted hereunder, each Recipient hereby
|
||||
assumes sole responsibility to secure any other intellectual property rights
|
||||
needed, if any. For example, if a third party patent license is required to
|
||||
allow Recipient to distribute the Program, it is Recipient's responsibility
|
||||
to acquire that license before distributing the Program.
|
||||
|
||||
d) Each Contributor represents that to its knowledge it has sufficient
|
||||
copyright rights in its Contribution, if any, to grant the copyright license
|
||||
set forth in this Agreement.
|
||||
|
||||
3. REQUIREMENTS
|
||||
|
||||
A Contributor may choose to distribute the Program in object code form under
|
||||
its own license agreement, provided that:
|
||||
|
||||
a) it complies with the terms and conditions of this Agreement; and
|
||||
|
||||
b) its license agreement:
|
||||
|
||||
i) effectively disclaims on behalf of all Contributors all warranties and
|
||||
conditions, express and implied, including warranties or conditions of title
|
||||
and non-infringement, and implied warranties or conditions of merchantability
|
||||
and fitness for a particular purpose;
|
||||
|
||||
ii) effectively excludes on behalf of all Contributors all liability for
|
||||
damages, including direct, indirect, special, incidental and consequential
|
||||
damages, such as lost profits;
|
||||
|
||||
iii) states that any provisions which differ from this Agreement are offered
|
||||
by that Contributor alone and not by any other party; and
|
||||
|
||||
iv) states that source code for the Program is available from such
|
||||
Contributor, and informs licensees how to obtain it in a reasonable manner on
|
||||
or through a medium customarily used for software exchange.
|
||||
|
||||
When the Program is made available in source code form:
|
||||
|
||||
a) it must be made available under this Agreement; and
|
||||
|
||||
b) a copy of this Agreement must be included with each copy of the Program.
|
||||
|
||||
Contributors may not remove or alter any copyright notices contained within
|
||||
the Program.
|
||||
|
||||
Each Contributor must identify itself as the originator of its Contribution,
|
||||
if any, in a manner that reasonably allows subsequent Recipients to identify
|
||||
the originator of the Contribution.
|
||||
|
||||
4. COMMERCIAL DISTRIBUTION
|
||||
|
||||
Commercial distributors of software may accept certain responsibilities with
|
||||
respect to end users, business partners and the like. While this license is
|
||||
intended to facilitate the commercial use of the Program, the Contributor who
|
||||
includes the Program in a commercial product offering should do so in a
|
||||
manner which does not create potential liability for other Contributors.
|
||||
Therefore, if a Contributor includes the Program in a commercial product
|
||||
offering, such Contributor ("Commercial Contributor") hereby agrees to defend
|
||||
and indemnify every other Contributor ("Indemnified Contributor") against any
|
||||
losses, damages and costs (collectively "Losses") arising from claims,
|
||||
lawsuits and other legal actions brought by a third party against the
|
||||
Indemnified Contributor to the extent caused by the acts or omissions of such
|
||||
Commercial Contributor in connection with its distribution of the Program in
|
||||
a commercial product offering. The obligations in this section do not apply
|
||||
to any claims or Losses relating to any actual or alleged intellectual
|
||||
property infringement. In order to qualify, an Indemnified Contributor must:
|
||||
a) promptly notify the Commercial Contributor in writing of such claim, and
|
||||
b) allow the Commercial Contributor to control, and cooperate with the
|
||||
Commercial Contributor in, the defense and any related settlement
|
||||
negotiations. The Indemnified Contributor may participate in any such claim
|
||||
at its own expense.
|
||||
|
||||
For example, a Contributor might include the Program in a commercial product
|
||||
offering, Product X. That Contributor is then a Commercial Contributor. If
|
||||
that Commercial Contributor then makes performance claims, or offers
|
||||
warranties related to Product X, those performance claims and warranties are
|
||||
such Commercial Contributor's responsibility alone. Under this section, the
|
||||
Commercial Contributor would have to defend claims against the other
|
||||
Contributors related to those performance claims and warranties, and if a
|
||||
court requires any other Contributor to pay any damages as a result, the
|
||||
Commercial Contributor must pay those damages.
|
||||
|
||||
5. NO WARRANTY
|
||||
|
||||
EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS PROVIDED ON
|
||||
AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, EITHER
|
||||
EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY WARRANTIES OR
|
||||
CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A
|
||||
PARTICULAR PURPOSE. Each Recipient is solely responsible for determining the
|
||||
appropriateness of using and distributing the Program and assumes all risks
|
||||
associated with its exercise of rights under this Agreement , including but
|
||||
not limited to the risks and costs of program errors, compliance with
|
||||
applicable laws, damage to or loss of data, programs or equipment, and
|
||||
unavailability or interruption of operations.
|
||||
|
||||
6. DISCLAIMER OF LIABILITY
|
||||
|
||||
EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT NOR ANY
|
||||
CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING WITHOUT LIMITATION
|
||||
LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
||||
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
||||
ARISING IN ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
|
||||
EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY
|
||||
OF SUCH DAMAGES.
|
||||
|
||||
7. GENERAL
|
||||
|
||||
If any provision of this Agreement is invalid or unenforceable under
|
||||
applicable law, it shall not affect the validity or enforceability of the
|
||||
remainder of the terms of this Agreement, and without further action by the
|
||||
parties hereto, such provision shall be reformed to the minimum extent
|
||||
necessary to make such provision valid and enforceable.
|
||||
|
||||
If Recipient institutes patent litigation against any entity (including a
|
||||
cross-claim or counterclaim in a lawsuit) alleging that the Program itself
|
||||
(excluding combinations of the Program with other software or hardware)
|
||||
infringes such Recipient's patent(s), then such Recipient's rights granted
|
||||
under Section 2(b) shall terminate as of the date such litigation is filed.
|
||||
|
||||
All Recipient's rights under this Agreement shall terminate if it fails to
|
||||
comply with any of the material terms or conditions of this Agreement and
|
||||
does not cure such failure in a reasonable period of time after becoming
|
||||
aware of such noncompliance. If all Recipient's rights under this Agreement
|
||||
terminate, Recipient agrees to cease use and distribution of the Program as
|
||||
soon as reasonably practicable. However, Recipient's obligations under this
|
||||
Agreement and any licenses granted by Recipient relating to the Program shall
|
||||
continue and survive.
|
||||
|
||||
Everyone is permitted to copy and distribute copies of this Agreement, but in
|
||||
order to avoid inconsistency the Agreement is copyrighted and may only be
|
||||
modified in the following manner. The Agreement Steward reserves the right to
|
||||
publish new versions (including revisions) of this Agreement from time to
|
||||
time. No one other than the Agreement Steward has the right to modify this
|
||||
Agreement. The Eclipse Foundation is the initial Agreement Steward. The
|
||||
Eclipse Foundation may assign the responsibility to serve as the Agreement
|
||||
Steward to a suitable separate entity. Each new version of the Agreement will
|
||||
be given a distinguishing version number. The Program (including
|
||||
Contributions) may always be distributed subject to the version of the
|
||||
Agreement under which it was received. In addition, after a new version of
|
||||
the Agreement is published, Contributor may elect to distribute the Program
|
||||
(including its Contributions) under the new version. Except as expressly
|
||||
stated in Sections 2(a) and 2(b) above, Recipient receives no rights or
|
||||
licenses to the intellectual property of any Contributor under this
|
||||
Agreement, whether expressly, by implication, estoppel or otherwise. All
|
||||
rights in the Program not expressly granted under this Agreement are
|
||||
reserved.
|
||||
|
||||
This Agreement is governed by the laws of the State of New York and the
|
||||
intellectual property laws of the United States of America. No party to this
|
||||
Agreement will bring a legal action under this Agreement more than one year
|
||||
after the cause of action arose. Each party waives its rights to a jury trial
|
||||
in any resulting litigation.
|
||||
@@ -0,0 +1,36 @@
|
||||
# random
|
||||
|
||||
FIXME: description
|
||||
|
||||
## Installation
|
||||
|
||||
Download from http://example.com/FIXME.
|
||||
|
||||
## Usage
|
||||
|
||||
FIXME: explanation
|
||||
|
||||
$ java -jar random-0.1.0-standalone.jar [args]
|
||||
|
||||
## Options
|
||||
|
||||
FIXME: listing of options this app accepts.
|
||||
|
||||
## Examples
|
||||
|
||||
...
|
||||
|
||||
### Bugs
|
||||
|
||||
...
|
||||
|
||||
### Any Other Sections
|
||||
### That You Think
|
||||
### Might be Useful
|
||||
|
||||
## License
|
||||
|
||||
Copyright © 2016 FIXME
|
||||
|
||||
Distributed under the Eclipse Public License either version 1.0 or (at
|
||||
your option) any later version.
|
||||
@@ -0,0 +1,9 @@
|
||||
(defproject random "0.1.0-SNAPSHOT"
|
||||
:description "FIXME: write description"
|
||||
:url "http://example.com/FIXME"
|
||||
:license {:name "Eclipse Public License"
|
||||
:url "http://www.eclipse.org/legal/epl-v10.html"}
|
||||
:dependencies [[org.clojure/clojure "1.8.0"]]
|
||||
:main ^:skip-aot random.core
|
||||
:target-path "target/%s"
|
||||
:profiles {:uberjar {:aot :all}})
|
||||
@@ -0,0 +1,7 @@
|
||||
(ns random.core
|
||||
(:gen-class))
|
||||
|
||||
(defn -main
|
||||
"I don't do a whole lot ... yet."
|
||||
[& args]
|
||||
(println "Hello, World!"))
|
||||
@@ -0,0 +1,239 @@
|
||||
(ns random.rnd)
|
||||
(set! *unchecked-math* true)
|
||||
|
||||
(def ^:private _LEN
|
||||
607)
|
||||
|
||||
(def ^:private _TAP
|
||||
273)
|
||||
|
||||
(def ^:private _MASK
|
||||
java.lang.Long/MAX_VALUE)
|
||||
|
||||
(def ^:private _A
|
||||
48271)
|
||||
|
||||
(def ^:private _M
|
||||
(dec (bit-shift-left 1 31)))
|
||||
|
||||
(def ^:private _Q
|
||||
44488)
|
||||
|
||||
(def ^:private _R
|
||||
3399)
|
||||
|
||||
(def ^:private rng_cooked
|
||||
[
|
||||
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
|
||||
])
|
||||
|
||||
|
||||
(defn seedrand [x]
|
||||
(let [hi (quot x _Q)
|
||||
lo (rem x _Q)
|
||||
ret (- (* _A lo) (* _R hi))]
|
||||
(if (neg? ret)
|
||||
(+ ret _M)
|
||||
ret)))
|
||||
|
||||
(defn initialize-sanitized-int-seed [seed-int]
|
||||
(last (take 22 (iterate seedrand seed-int))))
|
||||
|
||||
(defn- create-seed-from-sanitized-int-seed [seed]
|
||||
)
|
||||
|
||||
(defn sanitize-int-seed [seed-int]
|
||||
(let [seed (new Integer (rem seed-int _M))]
|
||||
(cond
|
||||
(< seed 0) (+ _M seed)
|
||||
(= seed 0) 89482311
|
||||
:default seed)))
|
||||
|
||||
(defn create-seeds [seed]
|
||||
(let [sanitized-seed (sanitize-int-seed seed)
|
||||
initialized-seed (initialize-sanitized-int-seed sanitized-seed)]
|
||||
(take _LEN (iterate (comp seedrand seedrand seedrand) initialized-seed))))
|
||||
|
||||
(defn compute-vec-value [i x]
|
||||
(let [u (bit-shift-left x 40)
|
||||
x (seedrand x)
|
||||
u (bit-xor u (bit-shift-left x 20))
|
||||
x (seedrand x)
|
||||
u (bit-xor x u (get rng_cooked i))
|
||||
]
|
||||
(bit-and u _MASK)))
|
||||
|
||||
(defn create-vect-values [seeds]
|
||||
(vec (map-indexed compute-vec-value seeds)))
|
||||
|
||||
(defn create-state [seed]
|
||||
(let [seeds (create-seeds seed)
|
||||
vec-values (create-vect-values seeds)
|
||||
state {:tap 0 :feed (- _LEN _TAP) :vec vec-values}]
|
||||
(atom state)))
|
||||
|
||||
(defn get-new-state [{:keys [tap feed vec]}]
|
||||
(let [new-tap (mod (dec tap) _LEN)
|
||||
new-feed (mod (dec feed) _LEN)
|
||||
x (bit-and (+ ^long (get vec new-feed) ^long (get vec new-tap)) _MASK)
|
||||
new-vec (assoc vec new-feed x)
|
||||
]
|
||||
{:tap new-tap :feed new-feed :vec new-vec})
|
||||
)
|
||||
|
||||
(defn random-unsigned-long [state]
|
||||
|
||||
(let [state (swap! state get-new-state)
|
||||
feed (:feed state)]
|
||||
(get-in state [:vec feed])))
|
||||
@@ -0,0 +1,3 @@
|
||||
(ns random.core-test
|
||||
(:require [clojure.test :refer :all]
|
||||
[random.core :refer :all]))
|
||||
@@ -0,0 +1,54 @@
|
||||
(ns random.rnd-test
|
||||
(:require [clojure.test :refer :all]
|
||||
[random.rnd :refer :all]))
|
||||
|
||||
(deftest test-seed
|
||||
(testing "input output matches go"
|
||||
(let [inputs-outputs [[-10000 1664773647]
|
||||
[-1000 2099212647]
|
||||
[-10 2147000937]
|
||||
[0 0]
|
||||
[10 482710]
|
||||
[1000 48271000]
|
||||
[10000 482710000]]
|
||||
test-input-output #(is (= %2 (seedrand %1)))]
|
||||
(doall (map (partial apply test-input-output) inputs-outputs))))
|
||||
|
||||
(testing "sanitize-int "
|
||||
(is (= (sanitize-int-seed -1000) 2147482647))
|
||||
(is (= (sanitize-int-seed 0) 89482311))
|
||||
(is (= (sanitize-int-seed 1000) 1000))
|
||||
(is (= (sanitize-int-seed 9147482647) 557548059)))
|
||||
(testing "initialize-sanitized-int-seed"
|
||||
(is (= (initialize-sanitized-int-seed (sanitize-int-seed 1)) 638022372)))
|
||||
(testing "compute-vec-value"
|
||||
(is (= (compute-vec-value 0 638022372) 4793737376195822190))
|
||||
(is (= (compute-vec-value 540 1843188054) 1740225551967639957))
|
||||
(is (= (compute-vec-value 606 933195560) 2795989035801226345)))
|
||||
(testing "create-seeds"
|
||||
(is (= (count (create-seeds 1)) 607))
|
||||
(is (= (first (create-seeds 1)) 638022372))
|
||||
(is (= (last (create-seeds 1)) 933195560)))
|
||||
(testing "create-vect-values"
|
||||
(let [seeds (create-seeds 1)]
|
||||
(is (= (count (create-vect-values seeds)) 607))
|
||||
(is (= (first (create-vect-values seeds)) 4793737376195822190))
|
||||
(is (= (last (create-vect-values seeds)) 2795989035801226345))))
|
||||
)
|
||||
|
||||
|
||||
(deftest test-producing-random-long
|
||||
(testing "random-unsigned-long simple case"
|
||||
(let [state (create-state 1)]
|
||||
(is (= (random-unsigned-long state) 5577006791947779410))))
|
||||
|
||||
(testing "random-unsigned-long complex case"
|
||||
(time (let [state (create-state 1)
|
||||
N 1000000
|
||||
random-longs (repeatedly #(random-unsigned-long state))
|
||||
last-random-long (last (take N random-longs))]
|
||||
(is (= last-random-long 6378274296575581301))
|
||||
; (is (= last-random-long 6378274296575581301))
|
||||
)))
|
||||
|
||||
)
|
||||
Reference in new issue
Block a user