Re^2: calculating cribbage points

[Limbic~Region]

ikegami,
Your code:

my %count;
++$count{$_} foreach @c;

my @pairs = grep { $count{$_} >= 2 } sort { $b <=> $a } @c;
my @kind3 = grep { $count{$_} >= 3 } @pairs;
my @kind4 = grep { $count{$_} >= 4 } @kind3;

Can be simplified to:

my ($points, %count);
++$count{$_} for @c;
$points += $_ * ($_ - 1) for values %count;

I used this trick and several others in RFC: Cribbage::Hand.

[ikegami]

I don't know cribbage. I didn't even know we were dealing with cribbage. I didn't count the points, just list the pairs. Your code is not so much a simplification as something different.