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

    • 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;
      }