Slash Boxes
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.
More | Login | Reply
Loading... please wait.
  • sub CountRound ( @votes, %skip ) {
        my %fraction;
        my $f = { EffectiveVote( $^vote, %skip ) };
        for $f ) { %fraction{$_}++ }
        for %fraction.values { $_ /= @votes.elems }
        return %fraction;

    • by colomon (8994) on 2008.12.27 8:42 (#66636) Journal
      That's an interesting approach. On consideration, I decided it would be easier to drop the percentage thing altogether, yielding this, which is slightly wordier than yours but dead simple.

      sub CountRound (Array @votes, Hash %skip)
          my %count;
          for @votes -> $vote
              %count{EffectiveVote($vote, %skip)}++;
          return %count;