Random number generator (device): Difference between revisions
Content added Content deleted
No edit summary |
(→{{header|Pascal}}: add example) |
||
Line 245: | Line 245: | ||
Printf.printf "%ld\n" ri32; |
Printf.printf "%ld\n" ri32; |
||
;;</lang> |
;;</lang> |
||
=={{header|Pascal}}== |
|||
This works with FreePascal on "unixoids": |
|||
<lang pascal>program RandomNumberDevice; |
|||
var |
|||
byteFile: file of byte; |
|||
randomByte: byte; |
|||
begin |
|||
assign(byteFile, '/dev/urandom'); |
|||
reset (byteFile); |
|||
read (byteFile, randomByte); |
|||
close (byteFile); |
|||
writeln('The random byte is: ', randomByte); |
|||
end. |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
>: ./RandomNumberDevice |
|||
The random byte is: 9 |
|||
>: ./RandomNumberDevice |
|||
The random byte is: 237 |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |