Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (→{{header|11l}}) |
(adding lambdatalk task) |
||
Line 675: | Line 675: | ||
432883 |
432883 |
||
</pre> |
</pre> |
||
=={{header|Lambdatalk}}== |
|||
<syntaxhighlight lang="Scheme"> |
|||
{def msrandom |
|||
{lambda {:s :n} |
|||
{if {>= :n 0} |
|||
then :s |
|||
{msrandom {W.slice 3 -3 {pow :s 2}} {- :n 1}} |
|||
else}}} |
|||
-> msrandom |
|||
{msrandom 675248 5} |
|||
-> 675248 959861 333139 981593 524817 432883 |
|||
</syntaxhighlight> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |