Check Machin-like formulas: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (→{{header|Perl 6}}: use rationals for exact computations, as per spec) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix markup) |
||
Line 1,143: | Line 1,143: | ||
{{trans|Perl}} |
{{trans|Perl}} |
||
<lang |
<lang perl6>sub taneval ($coef, $f) { |
||
return 0 if $coef == 0; |
return 0 if $coef == 0; |
||
return $f if $coef == 1; |
return $f if $coef == 1; |