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