Continued fraction: Difference between revisions
m
→{{header|Perl 6}}: forgot to remove 'take'
(→{{header|Perl 6}}: simplification + neglecting extra credit) |
m (→{{header|Perl 6}}: forgot to remove 'take') |
||
Line 737:
<lang Perl 6>sub infix:<⚬>(&f, &g) { -> $x { &f(&g($x)) } }
sub continued-fraction(@a, @b) {
map { $_(Inf) }, [\⚬] map {
}
|