Perl-Sensitive Sunglasses PerlMonks

### Comment on

 ( #3333=superdoc: print w/ replies, xml ) Need Help??

This method can be used when a function has a loop, since loops can be implemented using recursion. This is great because it facilitates making iterators from functions where the call to the visitor is not at the end and from functions with multiple calls to the visitor.

For example, let's create a fibonacci generator. A simple implementation is:

```sub fibonacci {
my (\$visitor) = @_;
my (\$i, \$j) = (0, 1);
\$visitor->() for \$i;
for (;;) {
\$visitor->() for \$j;
(\$i, \$j) = (\$j, \$i+\$j);
}
}

Replace the loop with recursion.

```sub fibonacci {
my (\$visitor) = @_;
my (\$i, \$j) = (0, 1);
\$visitor->() for \$i;
_fibonacci(\$i, \$j);
}

sub _fibonacci {
my (\$visitor, \$i, \$j) = @_;
\$visitor->() for \$j;
_fibonacci(\$j, \$i+\$j);
}

Convert for make_iter.

```sub fibonacci {
my (\$i, \$j) = (0, 1);
return ( \\$i, sub { _fibonacci(\$i, \$j) } );
}

sub _fibonacci {
my (\$i, \$j) = @_;
return ( \\$j, sub { _fibonacci(\$j, \$i+\$j) } );
}

Try it out

```{
my \$iter = make_iter(\&fibonacci);
for (0..15) {
my (\$n) = \$iter->()
or last;
print("\$n ");
}
print("\n");
}
```0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• Posts may use any of the Perl Monks Approved HTML tags:
a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
 For: Use: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (10)
As of 2016-07-28 17:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What is your favorite alternate name for a (specific) keyboard key?

Results (255 votes). Check out past polls.