Check Machin-like formulas: Difference between revisions

m
(→‎{{header|Perl 6}}: use rationals for exact computations, as per spec)
m (→‎{{header|Perl 6}}: fix markup)
Line 1,143:
 
{{trans|Perl}}
<lang Perl6perl6>sub taneval ($coef, $f) {
return 0 if $coef == 0;
return $f if $coef == 1;
10,333

edits