Moose::Autobox::Code - the Code role
use Moose::Autobox;
my $adder = sub { $_[0] + $_[1] };
my $add_2 = $adder->curry(2);
$add_2->(2); # returns 4
# create a recursive subroutine
# using the Y combinator
*factorial = sub {
my $f = shift;
sub {
my $n = shift;
return 1 if $n < 2;
return $n * $f->($n - 1);
}
}->y;
factorial(10) # returns 3628800
This is a role to describe operations on the Code type.
- curry (@values)
- rcurry (@values)
- conjoin (\&sub)
- disjoin (\&sub)
- compose (@subs)
- This will take a list of @subs and compose them
all into a single subroutine where the output of one sub will be the input
of another.
- y
- This implements the Y combinator.
- u
- This implements the U combinator.
- meta
- <http://en.wikipedia.org/wiki/Fixed_point_combinator>
- <http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/20469>
All complex software has bugs lurking in it, and this module is no exception. If
you find a bug please either email me, or add the bug to cpan-RT.
Stevan Little <stevan@iinteractive.com>
Copyright 2006-2008 by Infinity Interactive, Inc.
<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.