Random number generator (device): Difference between revisions

m
→‎{{header|Perl 6}}: fix file open error handling
(→‎{{header|Factor}}: use a better method)
m (→‎{{header|Perl 6}}: fix file open error handling)
Line 647:
 
<lang perl6>use experimental :pack;
my $UR = open("/dev/urandom", :bin) ororelse .die "Can't open /dev/urandom: $!";
my @random-spigot = $UR.read(1024).unpack("L*") ... *;
 
2,392

edits