Re^3: Why Perl Is Not My Favourite Functional Programming Language

[itub]

in reply to Re^2: Why Perl Is Not My Favourite Functional Programming Language
in thread A mini-language for sequences (part 1)

Perhaps I misunderstood what you wanted. While you are certainly in trouble if you want to curry the + operator, I see no problem with a function such as sum.

use strict;
use warnings;
use List::Util qw(sum);

sub curry(&@)
{
    my ($fn, @args) = @_;
    return sub {
        $fn->(@args, @_);
    }
}

my $f = curry { sum(@_) } 5;

print $f->(3); # prints 8 (5 + 3)