Re: Specializing Functions with Currying

[stvn]

FoxTrotUniform,

Nothing like a good meditation on functional programming to clean out the OOP cobwebs in ones head. Thanks :)

You could make your build_para sub even more Haskell-ish if you removed all assignment statements as well.

sub build_para
{
    return $handlers{'para'}->(join "" => map { $handlers{$_->[0]}->($
+_->[1]) } @{$_[0]});
}

But if we are really gonna get functional, then we might as well make a generic build_HTML sub and use more recursive datastructures.

my @test_data_2 = ( 'para', [
    ['none', 'The quick brown '],
    ['bold', 'fox'],
    ['none', ' jumped '],
    ['ital', 'over'],
    ['none', ' the lazy '],
    ['bold', 'dog'],
    ['none', '.']
    ]
);

sub build_HTML {
    join "" => map {
        (ref($_->[1]) eq "ARRAY") ?
            $handlers{$_->[0]}->(build_HTML(@{$_->[1]}))
            :
            $handlers{$_->[0]}->($_->[1])
    } ref($_[0]) ? @_ : ([ @_ ]);
}

print build_HTML(@test_data_2);

We could then actually use build_HTML to compose the build_para subroutine.

*build_para = curry(\&build_HTML, 'para');
print build_para(\@test_data);