await.pl6

#No parallel
my @array1 = (0..49999);
my @array2 = (2..50001);

my @result1 = @array1.map( {is-prime($_ + 1)} );
my @result2 = @array2.map( {is-prime($_ - 1)} );

say @result1 == @result2;

say now - INIT now;

#parallel
my @array1 = (0..49999);
my @array2 = (2..50001);

my $promise1 = start @array1.map( {is-prime($_ + 1)} );
my $promise2 = start @array2.map( {is-prime($_ - 1)} );

my @result1 = await $promise1;
my @result2 = await $promise2;

say @result1 == @result2;

say now - INIT now;

my @array1 = (0..49999);
my @array2 = (2..50001);

my $promise1 = start {
                        say "starting one ";
                        my @a = @array1.map( {is-prime($_ + 1)} );
                        say "done one ";
                        @a;
                     };
my $promise2 = start {
                        say "starting two";
                        my @a = @array2.map( {is-prime($_ - 1)} );
                        say "done two";
                        @a;
                     };


my @result1 = await $promise1;
my @result2 = await $promise2;