Coprime triplets: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku entry) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: minor efficiency tweaks) |
||
Line 78: | Line 78: | ||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
<lang perl6>my @coprime-triplets = 1,2, { |
<lang perl6>my @coprime-triplets = 1, 2, { |
||
state %seen = 1, True, 2, True; |
state %seen = 1, True, 2, True; |
||
state $min = 3; |
|||
sink $^a, $^b; |
sink $^a, $^b; |
||
my $n = ( |
my $n = ($min .. *).first: { !%seen{$_} && ($_ gcd $a == 1) && ($_ gcd $b == 1) } |
||
%seen{$n} = True; |
%seen{$n} = True; |
||
if %seen.elems %% 300 { $min = ($min .. *).first: { !%seen{$_} } } |
|||
$n |
$n |
||
} … *; |
} … *; |