Sha256: cfdfc7a28df149d8df1e5b83d48a56acc609386ab3f1cf8765b58c7a1c52dc39
Contents?: true
Size: 573 Bytes
Versions: 323
Compression:
Stored size: 573 Bytes
Contents
package Example;
use strict;
use warnings;
sub map {
my ($func, $list) = @_;
my @result;
foreach my $elem (@$list) {
push @result,
$func->($elem);
}
return \@result;
}
sub reduce {
my ($func, $list) = @_;
my $result = shift @$list;
foreach my $elem (@$list) {
$result = $func->($result, $elem);
}
return $result;
}
sub length {
my $list = shift;
return _length($list, 0);
}
sub _length {
my ($list, $n) = @_;
return _length($list, $n + 1)
if shift @$list;
return $n;
}
1;
Version data entries
323 entries across 323 versions & 1 rubygems