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.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • 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