use strict;
use warnings;

use ntheory 0.67 ":all";
use MCE::Flow 1.831;
use MCE::Shared;

mce_open my $err_fh, '>>', \*STDERR;

my ( $name, $rng );

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

# Workers receive [ begin, end ] values.

MCE::Flow::init(
  max_workers => MCE::Util::get_ncpu(),
  chunk_size  => 10000,
  bounds_only => 1,
  user_begin  => sub {
    $name = MCE->user_args()->[0];
    $rng  = $rand{ $name };
  }
);

sub func {
  my ( $beg_seq, $end_seq ) = @{ $_ };
  my ( $t, $pairs, $r1, $r2 ) = ( 0, '' );

  for ( $beg_seq .. $end_seq ) {
    ( $r1, $r2 ) = ( $rng->(), $rng->() );
    if ( gcd($r1, $r2) == 1 ) {
      $pairs .= sprintf("%20s %20s\n", $r1, $r2);
      $t++;
    }
  }

  print $err_fh $pairs;

  MCE->gather($t);
}

# The user_args option is how to pass arguments.

sub cesaro {
  my ( $name ) = @_;
  print "Usage $name:\n";

  my $n   = 10 ** 5;
  my @ret = mce_flow_s { user_args => [$name] }, \&func, 0, $n - 1;
  my $t   = 0;   $t += $_ for @ret;

  printf "%8d  %0.8f\n", $n, sqrt(6 * $n / $t);
  printf "%9s %s\n\n", "Pi", Pi();
}

cesaro("/dev/urandom");