Вася решил отправить e-mail своему другу пете. он знает через какие серверы проходит письмо и решил задать я вопросом, а каким количеством разных путей могло дойти письмо до пети. васе решить эту , если точно известно что письмо через 4-й сервер, а проходить оно могло только по стрелками (5-тый не трогать)
use strict;
use warnings;
use utf8;
my @vector;
my $vector_length = 100;
my $random_dia = 30000;
push @vector, int(rand($random_dia)) for(0..$vector_length);
my ($start, $end) = (undef, undef);
my ($min, $max, $sum) = ( $random_dia, 0, 0,);
for my $position (0.. $#vector)){
if($vector[$position] > $max ){
$max = $vector[$position];
$end= $position;
}
if($vector[$position] < $min ){
$min = $vector[$position];
$start= $position;
}
}
for my $position ($min..$max){
$sum += $vector[$position];
}
say 'Result: \t '.$sum;