Chebyshev coefficients: Difference between revisions
m
→{{header|Raku}}: more Unicode, fewer sigils
(Chebyshev coefficients en BASIC256) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: more Unicode, fewer sigils) |
||
Line 1,614:
=={{header|Raku}}==
(formerly Perl 6)
{{trans|C}}▼
▲{{trans|C}}
<lang perl6>sub chebft ( Code $func, Real
my
my
my @
my @f = ( @pi_n».cos »
my @sums = (^n).map: { [+] @f »
}
say
{{out}}
<pre>+1.6471695e+00
-2.3229937e-01
-5.3715115e-02
Line 1,642 ⟶ 1,640:
+1.1521427e-08
+6.5962992e-10
-1.0021994e-11</pre>
=={{header|REXX}}==
|