Continued fraction: Difference between revisions
m
→{{header|Perl}}: shortening a bit
(→{{header|Perl}}: $_[2] instead of @_[2]) |
m (→{{header|Perl}}: shortening a bit) |
||
Line 643:
<lang perl>sub continued_fraction {
my ($a, $b, $n) = @_
my @a = map &$a, 0 .. $n;
|