Anonymous user
Random number generator (device): Difference between revisions
no edit summary
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: fix file open error handling) |
No edit summary |
||
Line 478:
{{out}}
<pre>723217350</pre>
=={{header|M2000 Interpreter}}==
<lang M2000 Interpreter>
Module checkit {
Declare random1 lib "advapi32.SystemFunction036" {long lpbuffer, long length}
Buffer Clear Alfa as long*2
Print Eval(Alfa,0)
Print Eval(Alfa,1)
call void random1(alfa(0), 8)
Print Eval(Alfa,0)
Print Eval(Alfa,1)
}
checkit
</lang>
=={{header|Mathematica}}==
| |||