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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
#!/usr/bin/env perl
# Task 2: Peak Point
# Submitted by: Mohammad Sajid Anwar
# You are given an array of altitude gain.
# Write a script to find the peak point gained.
#
# Example 1
# Input: @gain = (-5, 1, 5, -9, 2)
# Output: 1
#
# start: 0
# 1st change: 0 + (-5) = -5
# 2nd change: -5 + 1 = -4
# 3rd change: -4 + 5 = 1
# 4th change: 1 + (-9) = -8
# 5th change: -8 + 2 = -6
#
# max(0, -5, -4, 1, -8, -6) = 1
#
# Example 2
# Input: @gain = (10, 10, 10, -25)
# Output: 30
#
# start: 0
# 1st change: 0 + 10 = 10
# 2nd change: 10 + 10 = 20
# 3rd change: 20 + 10 = 30
# 4th change: 30 + (-25) = 5
#
# max(0, 10, 20, 30, 5) = 30
#
# Example 3
# Input: @gain = (3, -4, 2, 5, -6, 1)
# Output: 6
#
# start: 0
# 1st change: 0 + 3 = 3
# 2nd change: 3 + (-4) = -1
# 3rd change: -1 + 2 = 1
# 4th change: 1 + 5 = 6
# 5th change: 6 + (-6) = 0
# 6th change: 0 + 1 = 1
#
# max(0, 3, -1, 1, 6, 0, 1) = 6
#
# Example 4
# Input: @gain = (-1, -2, -3, -4)
# Output: 0
#
# start: 0
# 1st change: 0 + (-1) = -1
# 2nd change: -1 + (-2) = -3
# 3rd change: -3 + (-3) = -6
# 4th change: -6 + (-4) = -10
#
# max(0, -1, -3, -6, -10) = 0
#
# Example 5
# Input: @gain = (-10, 15, 5)
# Output: 10
#
# start: 0
# 1st change: 0 + (-10) = -10
# 2nd change: -10 + 15 = 5
# 3rd change: 5 + 5 = 10
#
# max(0, -10, 5, 10) = 10
use strict;
use warnings;
use List::Util qw(max);
my @gain = (-5, 1, 5, -9, 2);
get_max_peak(\@gain);
@gain = (10, 10, 10, -25);
get_max_peak(\@gain);
@gain = (3, -4, 2, 5, -6, 1);
get_max_peak(\@gain);
@gain = (-1, -2, -3, -4);
get_max_peak(\@gain);
@gain = (-10, 15, 5);
get_max_peak(\@gain);
exit 0;
sub get_max_peak {
my $array = shift;
my @peak = (0);
foreach my $step (@$array) {
push @peak, $peak[-1] + $step;
}
printf "(%s) -> %d\n", (join ', ', @$array),
max @peak;
}
|
