in reply to Re^7: PDL and srand puzzle - prior reply not using MCE
in thread PDL and srand puzzle

I'm taking CORE::rand() and PDL::random() for a spin without threads. Rather, child processes. There are 8 workers, each output 50,000 lines. A count below 400,000 indicates duplicates in the output.

use v5.030;
use PDL;
use MCE 1.894;

MCE->new(
    max_workers => 8, user_func => sub {
        for (1..50000) {
          # my $r = CORE::rand();
            my $r = PDL->random;
            MCE->say("$r");
        }
    }
)->run;

[download]

CORE::rand()

$ perl test4.pl | LC_ALL=C sort -u | wc -l
400000

$ perl test4.pl | LC_ALL=C sort -u | wc -l
400000

$ perl test4.pl | LC_ALL=C sort -u | wc -l
400000

[download]

PDL->random

$ perl test4.pl | LC_ALL=C sort -u | wc -l
400000

$ perl test4.pl | LC_ALL=C sort -u | wc -l
400000

$ perl test4.pl | LC_ALL=C sort -u | wc -l
400000

[download]

Next, I tried 12 million unique lines and tight loop by appending to a string (i.e. no waiting for serialized output previously). Again, no duplicates.

use v5.030;
use PDL;
use MCE 1.894;

MCE->new(
    max_workers => 24, user_func => sub {
        my $output = ""; 
        for (1..500000) {
          # my $r = CORE::rand();
            my $r = PDL->random;
            $output .= "$r\n";
        }   
        MCE->print($output);
    }
)->run;

[download]

CORE::rand() and PDL->random

$ perl test5.pl | LC_ALL=C sort -u | wc -l
12000000

$ perl test5.pl | LC_ALL=C sort -u | wc -l
12000000

$ perl test5.pl | LC_ALL=C sort -u | wc -l
12000000

[download]

Sorting takes a while. There is the mcesort program with integrated mini-MCE. Copy the script to /usr/local/bin and sudo chmod +x /usr/local/bin/mcesort or bin path of your choice.

perl test5.pl | LC_ALL=C mcesort -j6 -u | wc -l

[download]

Replies are listed 'Best First'.
Re^9: PDL and srand puzzle - testing using threads
by marioroy (Prior) on Jun 06, 2024 at 07:34 UTC

    The following uses threads for comparison. Locking is required to not garble output, handled automatically i.e. MCE->say, MCE->print, MCE->printf. Here, a count below 32 million indicates duplicate lines in the output.

    Edit: etj identified a race condition, hence less uniqueness.

    use v5.030;
use threads;
use threads::shared;
use PDL;

BEGIN { $PDL::no_clone_skip_warning = 1; }

my $lock : shared = 0;

for my $tid (1..64) {
    threads->create(sub {
        my $output = "";
        for (1..500000) {
          # my $r = CORE::rand();
            my $r = PDL->random;
            $output .= "$r\n";
        }
        lock $lock;
        print $output;
    });
}

$_->join for threads->list;

    [download]

    CORE::rand()

    $ perl test6.pl | LC_ALL=C sort -u | wc -l
32000000

$ perl test6.pl | LC_ALL=C sort -u | wc -l
32000000

$ perl test6.pl | LC_ALL=C sort -u | wc -l
32000000

    [download]

    PDL->random

    $ perl test6.pl | LC_ALL=C sort -u | wc -l
25105304

$ perl test6.pl | LC_ALL=C sort -u | wc -l
25304231

$ perl test6.pl | LC_ALL=C sort -u | wc -l
25290392

    [download]

    Improving sort

    Mentioned in my prior post, the parallel mcesort program with integrated mini-MCE resides in a GitHub Gist. Copy the script to /usr/local/bin and sudo chmod +x /usr/local/bin/mcesort or bin path of your choice.

    perl test6.pl | LC_ALL=C mcesort -j6 -u | wc -l

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom