Help for this page

Select Code to Download

Select or download this

sub sub_iter {
  my ($s) = @_;
  return sub {$s?substr $s, 0, 1, '':undef}
}