Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
(Add Red) |
m (julia example) |
||
Line 193: | Line 193: | ||
{{out}} |
{{out}} |
||
<pre>959861 333139 981593 524817 432883 387691</pre> |
<pre>959861 333139 981593 524817 432883 387691</pre> |
||
=={{header|Julia}}== |
|||
<lang julia>const seed = [675248] |
|||
function random() |
|||
s = string(seed[] * seed[], pad=12) # turn a number into string, pad to 12 digits |
|||
seed[] = parse(Int, s[begin+3:end-3]) # take middle of number string, parse to Int |
|||
return seed[] |
|||
end |
|||
# Middle-square method use |
|||
for i = 1:5 |
|||
println(random()) |
|||
end |
|||
</lang>{{out}} |
|||
<pre> |
|||
959861 |
|||
333139 |
|||
981593 |
|||
524817 |
|||
432883 |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |