Mian-Chowla sequence: Difference between revisions

→‎{{header|Perl 6}}: minor tweaks, slightly more efficient
(→‎{{header|Perl 6}}: minor tweaks, slightly more efficient)
Line 1,177:
my $next;
my %these;
((|@mian-chowla[^$index], $test) »+» $test).map: { ++$next and last if %sums{$_ + $test}:exists; ++%these{$_ + $test} };
next if $next;
++%sums{$test + $test};
%sums.push: %these;
++$index;
10,333

edits