Select Code to Download

use strict;
# use Stream;
...
# $challenge->show(50);

print "@{[grep has_common_factor($_), 1..50]}\n";

sub tail {
  my $t = $_[0]{t};
...
  }
  $_[0]{t};
}

 R:  number of primes in the input
c1:  number of times merge was called
...
10  8015 14108 27602 0.290 0.511
11  8538 15149 31314 0.273 0.484
12  9025 16107 35040 0.258 0.460