Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 13:27, 12 July 2023
, 10 months agoRe-add Tcl non-destructively
Thundergnat (talk | contribs) Tag: Undo |
Thundergnat (talk | contribs) m (Re-add Tcl non-destructively) |
||
Line 1,190:
[959861, 333139, 981593, 524817, 432883]
</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}}==
|