Pseudo-random numbers/Middle-square method: Difference between revisions

m
Line 679:
{{trans|C}}
<syntaxhighlight lang="Scheme">
{{def randoms
{lambda {:s :n}
{if {>= :n 0}
then :s
{randoms {floorW.pad {% {floor {/ {* :s :s} 1.e3}} 1.e6} 6}
{- :n 1}}
else}}}
Line 689:
 
{randoms 675248 100}
->
-> 675248 959861 333139 981593 524817 432883 387691 304311 605184 247673 341914 905183 356263 923325 529055 899193 548051 359898 526570 275964 156129 376264 574597 161712 150770 731592 226854 462737 125531 758031 610996 316112 926796 950825 68180681806 648512859421 567814604455 412738365847 352656844027 366254381576 141992600243 161728291659 155945649726 318843143875 660858700015 733296210006 723023102520 762258510350 37258457122 388158960522 666632602512 398223207106 581557892895 208544261481 490599372313 687378616969 488514650746 645928470356 222981234766 720526115074 157716242025 874336576100 463440891210 776633255264 158816159709 222521506964 515595124976 838204619000 585945161000 331543921000 920760241000 798977810006 364246109720 675148384786 824821602656 329682194254 690221734616 405028660667 47680480884 273382249421 737717210835 226372451397 244282759251 673695462081 864953518850 143692205322 647390157123 113812687637 953171844643 534955421797 176852912709 276629377186 523603269278 160101510641 632330754230 841228862892 664547582603 622715426255 773971693325 31108699555 967707377198
</syntaxhighlight>
 
99

edits