Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Reduction operators 3 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.

  • Let's be fair... (Score:2)

    by Damian (784) on 2006.09.15 6:35 (#50110)
    Not only does the Haskell solution look the cleanest to me...
    Only because you didn't do it as cleanly as you could have. :-)

    A fairer comparison would be:

    -- Haskell
    prod = foldr (*) 1

    # Perl 6
    sub prod { [*] @_ }
    Or, if you prefer the equals sign:
    -- Haskell
    prod  = foldr (*) 1

    # Perl 6
    &prod := sub{ [*] @_ }
    Damian

    • Can that last one be written with the -> op?

      • Yes, in this case it can. You could write:
        # Perl 6
        &prod := -> *@list { [*] @list }
        which isn't exactly pretty, but does at least include a smiley face. ;-)

        Damian

Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.