Random number generator (device): Difference between revisions

Content deleted Content added

Inline

@@ Line 567: / Line 567: @@
 =={{header|Perl 6}}==
+{{Works with|rakudo|2016-11}}
 A lazy list of random numbers:
-<lang perl6>my $UR = open("/dev/urandom", :bin) or die "Can't open /dev/urandom: $!";
+<lang perl6>use experimental :pack;
-my @random-spigot := gather loop { take $UR.read(1024).unpack("L*") }
+my $UR = open("/dev/urandom", :bin) or die "Can't open /dev/urandom: $!";
+my @random-spigot = $UR.read(1024).unpack("L*") ... *;
 .say for @random-spigot[^10];</lang>