http://www.perlmonks.org?node_id=206224


in reply to Re: Re: Re: Are strings lists of characters?
in thread Are strings lists of characters?

I have not read Dominus' chapter, so I spent a minute pondering and came up with the following definition of imap, which is probably much less elegant than his:

sub imap(&$) {defined($_=$_[1]->())?($_[0]->($_),&imap(@_)):()}

Can you tell I've been writing too much Scheme recently? ;> I also was pondering other implementations of the example iterator discussed earlier, and thought that

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

[download]

..might be a hair faster than the reverse. Benchmark says it's not, though; oh, well.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

In Section Meditations