1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/usr/bin/env perl
# https://theweeklychallenge.org/blog/perl-weekly-challenge-276/#TASK2
#
# Task 2: Maximum Frequency
# =========================
#
# You are given an array of positive integers, @ints.
#
# Write a script to return the total number of elements in the given array
# which have the highest frequency.
#
## Example 1
##
## Input: @ints = (1, 2, 2, 4, 1, 5)
## Ouput: 4
##
## The maximum frequency is 2.
## The elements 1 and 2 has the maximum frequency.
#
## Example 2
##
## Input: @ints = (1, 2, 3, 4, 5)
## Ouput: 5
##
## The maximum frequency is 1.
## The elements 1, 2, 3, 4 and 5 has the maximum frequency.
#
############################################################
##
## discsussion
##
############################################################
#
# First, we calculate the frequencies for all numbers in the array.
# Then we sort that list by frequency and count all that share the
# maximum value.
use strict;
use warnings;
maximum_frequency(1, 2, 2, 4, 1, 5);
maximum_frequency(1, 2, 3, 4, 5);
sub maximum_frequency {
my @ints = @_;
my $freq = {};
print "Input: (", join(", ", @ints), ")\n";
foreach my $i (@ints) {
$freq->{$i}++;
}
my $max = 0;
my $output = 0;
foreach my $i (sort { $freq->{$b} <=> $freq->{$a}} keys %$freq) {
if($max < $freq->{$i}) {
$max = $freq->{$i};
}
if($freq->{$i} == $max) {
$output+=$max;
}
}
print "Output: $output\n";
}
|
