Addition chains: Difference between revisions
m
→{{header|Perl 6}}
Line 1,256:
for (2 .. @a.end) -> $i {
my $ok = False;
if (@a[$i-1]+@a[$j] == @a[$i]) {
$ok = True;
last
}
}
| |||