|
Thu Sep 20 12:50:33 EDT 2007
onto recursive interators in Perl
--
I am still getting the hang of things, but here is an example of
implementing recursion using the iterator paradigm. I am going
down this route because I'd like to implement a not-so-straight-
forward recursive function (depth first search of a graph) as an
iterator.
Here is my latest:
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4
5 sub recurse {
6 my $max = shift;
7 my $number = shift;
8 if ($number < $max) {
9 return sub { return recurse($max,$number+1); }
10 } else {
11 return sub { print "done"; };
12 }
13 }
14
15 my $next = recurse(3,0);
16 $next = $next->();
17 $next = $next->();
18 $next = $next->();
19 $next = $next->();
20
21 1;
--
Powered by vee
Copyright © 2006-2008
|
|