Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Eily's scratchpad

by Eily (Monsignor)
on Jun 17, 2013 at 17:59 UTC ( #1039429=scratchpad: print w/replies, xml ) Need Help??

use v5.14; #my $fact = sub { (sub { goto &{$_[0]} })->(sub { $_[1] ? $_[1] * $_[0 +]($_[0], $_[1]-1) : 1 }, $_[0]) }; #my $fact = sub { (sub { $_[0]($_[0], $_[1]) })->(sub { $_[1] ? $_[1] +* $_[0]($_[0], $_[1]-1) : 1 }, $_[0]) }; my $auto_fact = sub { my ($self, $value) = @_; return 1 unless $value > 1; return $value * $self->($self, $value - 1); }; my $auto_fib = sub { my ($self, $rank) = @_; return 1 unless $rank > 1; return $self->($self, $rank - 1) + $self->($self, $ra +nk - 2); }; say "Test auto fact: $_!=", $auto_fact->($auto_fact, $_) for 5, 6, 10; say "Test auto fib: ", join ", ", map { $auto_fib->($auto_fib, $_) } 0 +..10; my $transformator = sub { my ($auto_fun,) = @_; return sub { $auto_fun->($auto_fun, @_) } }; *fib = $transformator->($auto_fib); say "Test fib: ", join ", ", map fib($_), 0..10; *fact = (sub { my ($auto_fun,) = @_; sub { $auto_fun->($auto_fun, @_) +} })->( sub { my ($self, $value) = @_; $value ? $value * $self->($sel +f, $value - 1) : 1 } ); say "Test fact: $_!=", fact($_) for 3, 4, 5;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2022-06-30 10:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My most frequent journeys are powered by:









    Results (97 votes). Check out past polls.

    Notices?