use strict;
use warnings;

use ntheory ":all";
use MCE::Flow;

my ( $name, $rng );

my %rand = (
  "drand48" => sub { int(rand(1 << 32)) },
  "ChaCha20" => sub { irand64() },
  "/dev/urandom" => sub { unpack("Q", random_bytes(8)) }
);

MCE::Flow::init(
  max_workers => 8,
  init_relay  => 0,
  user_begin  => sub {
    $name = MCE->user_args()->[0];
    $rng  = $rand{ $name };
  }
);

sub func {
  MCE::relay {
    print MCE->wid(), ": ", $rng->(), "\n";
  };
}

for my $name ( "drand48", "ChaCha20", "/dev/urandom" ) {
  print "Usage $name:\n";
  mce_flow { user_args => [$name] }, \&func;
  print "\n";
}