blob: b96b0bddaab32ef610741c891f072c481dbb4fd3 (
plain)
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
|
#!/usr/bin/env perl
##########################
# Challenge 032, part 2 #
##########################
use strict;
use warnings;
use v5.10;
my $encoding = ':encoding(UTF-8)';
binmode STDOUT, $encoding;
my $data = {
lenovo => 5,
acer => 4,
xiaomi => 6,
opticom => 1,
tatysh_corp => 10
};
generate_bar_graph($data);
sub generate_bar_graph {
my $info = shift;
my $line_pos = calc_line_pos($info);
for my $word (sort {$info->{$b} <=> $info->{$a}} keys %$info) {
my $spaces = calc_start_spaces($word, $line_pos);
my $bars = calc_bars($info->{$word});
say $spaces.$word.' | '.$bars;
}
}
sub calc_line_pos {
my $info = shift;
my $max_length = 0;
foreach my $word (keys %$info) {
my $w_length = length $word;
$max_length = $w_length if $max_length < $w_length;
}
return $max_length++;
}
sub calc_start_spaces {
my ($word, $line_pos) = @_;
my $w_length = length $word;
my $n_spaces = $line_pos - $w_length;
my $spaces = '';
for (1 .. $n_spaces) {$spaces .=' '}
return $spaces;
}
sub calc_bars {
my $val = shift;
my $result = '';
for (1 .. $val) {$result.='###'}
return $result;
}
|
