Random number generator (device): Difference between revisions
add Standard ML
Thundergnat (talk | contribs) m (Regularize non-standard header markup) |
(add Standard ML) |
||
Line 1,289:
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}}==
| |||