Continued fraction: Difference between revisions
Content deleted Content added
→{{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 {
}
| |||