17 lines
209 B
Plaintext
17 lines
209 B
Plaintext
|
|
|
|
###
|
|
### iterate_function
|
|
###
|
|
|
|
## Chapter 7 section 1
|
|
|
|
sub iterate_function {
|
|
my $f = shift;
|
|
return sub {
|
|
my $x = shift;
|
|
my $s;
|
|
$s = node($x, promise { &transform($f, $s) });
|
|
};
|
|
}
|