Parallel calculations: Difference between revisions
m
→{{header|Raku}}: remove un-needed '*.'
m (Phix/mpfr) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: remove un-needed '*.') |
||
Line 1,899:
278352769033314050117, 281398154745309057242, 292057004737291582187;
my @factories = @nums.hyper(:3batch).map:
printf "%21d factors: %s\n", |$_ for @nums Z @factories;
my $gmf = {}.append(@factories»[0] »=>« @nums).max: +*.key;
Line 1,926:
for 1..8 -> $degree {
my $start = now;
my \factories = @nums.hyper(:degree($degree), :3batch).map:
my $gmf = {}.append(factories»[0] »=>« @nums).max: +*.key;
say "\nFactoring {+@nums} numbers, greatest minimum factor: {$gmf.key}";
| |||