Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) Tag: Undo |
Thundergnat (talk | contribs) m (Re-add Tcl non-destructively) |
||
Line 1,190: | Line 1,190: | ||
[959861, 333139, 981593, 524817, 432883] |
[959861, 333139, 981593, 524817, 432883] |
||
</pre> |
</pre> |
||
=={{header|Tcl}}== |
|||
<syntaxhighlight lang="tcl">set seed 675248 |
|||
proc rnd {} { |
|||
global seed |
|||
set s [expr {$seed * $seed}] |
|||
while {[string length $s] ne 12} { |
|||
set s [string cat 0 $s] |
|||
} |
|||
set seed [string range $s 3 8] |
|||
return $seed |
|||
} |
|||
for {set i 0} {$i < 5} {incr i} { |
|||
puts [rnd] |
|||
} |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre>959861 |
|||
333139 |
|||
981593 |
|||
524817 |
|||
432883</pre> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |