15 lines
135 B
Plaintext
15 lines
135 B
Plaintext
|
|
|
|
###
|
|
### upto
|
|
###
|
|
|
|
## Chapter 4 section 2.1
|
|
|
|
sub upto {
|
|
my ($m, $n) = @_;
|
|
return sub {
|
|
return $m <= $n ? $m++ : undef;
|
|
};
|
|
}
|