Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 18:19, 13 April 2023
, 1 year ago→{{header|Lambdatalk}}
(Added Lua version) |
|||
Line 825:
{{trans|C}}
<syntaxhighlight lang="Scheme">
{def W.fill
{lambda {:v :n}
{if {<= :n 0}
then
else :v{W.fill :v {- :n 1}}}}}
-> W.fill
{def W.pad
{lambda {:n :size}
{if {<= {W.length :n} :size}
then :n{W.fill :size {- :size {W.length :n}}}
else {W.slice 0 {- :size {W.length :n}} :n}}}}
-> W.pad
{def randoms
{lambda {:s :n}
Line 834 ⟶ 848:
-> randoms
{randoms
-> 959861 333139 981593 524817 432883
</syntaxhighlight>
|