blob: 20e53fd9e39da6a99a6d663290a93286fca7b903 (
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
|
#!/usr/bin/perl
# Test: ./ch-1.pl
use Modern::Perl;
my $N = shift // 10;
die ("N needs to be greated than 1 ")
unless ($N > 1);
# Store answers
my @values;
my @peaks;
# Populate @values
for my $i (0 .. $N - 1) {
push @values, int rand(50);
# Check left most peak
push @peaks, $values[$i - 1]
if ( $i == 1 &&
$values[$i - 1] > $values[$i] );
# Check middle peaks
push @peaks, $values[$i - 1]
if ( $i > 1 &&
$values[$i - 1] > $values[$i] &&
$values[$i - 1] > $values[$i - 2]);
# Check last peaks
push @peaks, $values[$i]
if ( $i == $N - 1 &&
$values[$i] > $values[$i - 1]);
}
# Output values
say 'Array: ' . '[' . (join ', ', @values) . ']';
say 'Peak: ' . '[' . (join ', ', @peaks) . ']';
|
