RosettaCodeData/Task/Random-number-generator--device-/Perl-6/random-number-generator--device-.pl6
2019-09-12 10:33:56 -07:00

5 lines
159 B
Raku

use experimental :pack;
my $UR = open("/dev/urandom", :bin) orelse .die;
my @random-spigot = $UR.read(1024).unpack("L*") ... *;
.say for @random-spigot[^10];