Bug #86430 for Data-Unixish: These functions seem like they'd be fairly useful (untested though)

Wed Jun 26 05:09:41 2013 perl [...] toby.ink - Ticket created

Subject:

These functions seem like they'd be fairly useful (untested though)

sub map { my %args = @_; my ($in, $out, $code) = @args{qw/in out callback/}; local ($_, $.); while (($., $_) = each @$in) { push @$out, $code->(); } [200, "OK"]; } sub grep { my %args = @_; my ($in, $out, $code) = @args{qw/in out callback/}; local ($_, $.); while (($., $_) = each @$in) { push @$out, $_ if $code->(); } [200, "OK"]; } Also of use might be implementations of List::Util::first, List::Util::reduce, List::MoreUtils::natatime, List::MoreUtils::each_array, List::MoreUtils::part. If you're interested, I can contribute them with proper test cases, documentation, etc.

Wed Jun 26 05:28:34 2013 sharyanto [...] cpan.org - Correspondence added

Hi Toby, Sure I'm interested. map and grep have already been on my todo list. The others look useful too. Regards, Steven On Wed Jun 26 05:09:41 2013, TOBYINK wrote: Show quoted text

> sub map { > my %args = @_; > my ($in, $out, $code) = @args{qw/in out callback/}; > local ($_, $.); > while (($., $_) = each @$in) { > push @$out, $code->(); > } > [200, "OK"]; > } > > sub grep { > my %args = @_; > my ($in, $out, $code) = @args{qw/in out callback/}; > local ($_, $.); > while (($., $_) = each @$in) { > push @$out, $_ if $code->(); > } > [200, "OK"]; > } > > Also of use might be implementations of List::Util::first, > List::Util::reduce, List::MoreUtils::natatime, > List::MoreUtils::each_array, List::MoreUtils::part. > > If you're interested, I can contribute them with proper test cases, > documentation, etc.

Wed Jun 26 05:28:34 2013 The RT System itself - Status changed from 'new' to 'open'

Wed Jul 03 00:03:33 2013 sharyanto [...] cpan.org - Correspondence added

Thanks Toby, Merged, released. Regards, Steven On Wed Jun 26 05:28:34 2013, SHARYANTO wrote: Show quoted text

> Hi Toby, > > Sure I'm interested. map and grep have already been on my todo list. > The others look useful too. > > Regards, > Steven > > On Wed Jun 26 05:09:41 2013, TOBYINK wrote:

> > sub map { > > my %args = @_; > > my ($in, $out, $code) = @args{qw/in out callback/}; > > local ($_, $.); > > while (($., $_) = each @$in) { > > push @$out, $code->(); > > } > > [200, "OK"]; > > } > > > > sub grep { > > my %args = @_; > > my ($in, $out, $code) = @args{qw/in out callback/}; > > local ($_, $.); > > while (($., $_) = each @$in) { > > push @$out, $_ if $code->(); > > } > > [200, "OK"]; > > } > > > > Also of use might be implementations of List::Util::first, > > List::Util::reduce, List::MoreUtils::natatime, > > List::MoreUtils::each_array, List::MoreUtils::part. > > > > If you're interested, I can contribute them with proper test cases, > > documentation, etc.

> >

Wed Jul 03 00:03:33 2013 sharyanto [...] cpan.org - Status changed from 'open' to 'resolved'