Random number generator (device): Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Regularize non-standard header markup) |
(add Standard ML) |
||
Line 1,289: | Line 1,289: | ||
say urandom(); # sample: 3517432564</lang> |
say urandom(); # sample: 3517432564</lang> |
||
=={{header|Standard ML}}== |
|||
{{Works with|Unix}} |
|||
<lang sml>fun sysRand32 () = |
|||
let |
|||
val strm = BinIO.openIn "/dev/urandom" |
|||
in |
|||
PackWord32Big.subVec (BinIO.inputN (strm, 4), 0) before BinIO.closeIn strm |
|||
end |
|||
val () = print (LargeWord.fmt StringCvt.DEC (sysRand32 ()) ^ "\n")</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |