Re: How To: Make An Iterator

[ihb]

in reply to How To: Make An Iterator

&infinite_evens is unnecessary complicated.

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

ihb