Rosetta Code

Averages/Mode: Difference between revisions

Page Discussion

Averages/Mode (view source)

Revision as of 03:08, 17 May 2019

37 bytes removed ,  5 years ago
m
→‎{{header|Perl 6}}: slightly sub-optimal syntax
m (→‎{{header|Q}}: Fixed </lang>.)
m (→‎{{header|Perl 6}}: slightly sub-optimal syntax)
Line 2,180:
=={{header|Perl 6}}==
 
{{works with|Rakudo|20182019.03.1}}
<lang perl6>sub mode (*@a) {
my %counts := @a.Bag;
my $max = %counts.values.max;
return |%counts.grep(*.value == $max).map(*.key);
}
 
Line 2,200:
 
<lang perl6>sub mode (*@a) {
@a.Bag # count elements
return |(@a
.Bagclassify(*.value) # group elements with the #same count elements
.classifymax(*.valuekey) # groupget elementsgroup with the samehighest count
.maxvalue.map(*.key) ; # get groupelements within the highest countgroup
.value.map(*.key); # get elements in the group
);
}
 
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/115966"