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.

use Perl

All the Perl that's Practical to Extract and Report

My first experiment with Perl6 More | Login | Reply

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

Without JavaScript enabled, you might want to use the classic discussion system instead. If you login, you can remember this preference.

Reduction operator (Score:1)

by david.romano (6556)

I went off of your examples and fiddled around a bit more with a reduction operator, and came up with this:

say (([+] @x XeqX @x) - @x.elems)/2;

It appears to work, and doesn't require the diagonal cross operator. The diagonal cross operator does seem like it would be a nice tool to have, tho' :-)
- Re:Reduction operator (Score:1)
  
  by dpuu (6090) on 2008.12.23 18:25 (#66600) Homepage Journal
  
  Having thought it through, my "diagonal cross" should almost certainly be prefix, not infix -- I can't think what a diagonal cross with a different array would mean. So:
  say [+] %eq% @x
  if I can figure out how to implement it!
  
  Reply to This
  
  Parent

Get More Comments

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