Help for this page

Select Code to Download

Select or download this

sub infinite_evens {
  my ($i) = @_;
  $i += $i % 2 - 2;
  return sub { $i += 2 };
}