Arithmetic/Rational: Difference between revisions
m
→{{header|Perl 6}}: Minor tweak, halve run time.
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: removed stale stub) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Minor tweak, halve run time.) |
||
Line 3,065:
{{Works with|rakudo|2016.08}}
Perl 6 supports rational arithmetic natively.
<lang perl6>
my $sum = 1 / $candidate;
for 2 .. ceiling(sqrt($candidate)) -> $factor {
|