아래 DP문제 Perl 6로 풀어봄

[cc(121.163)]

my @seq = get.split(' ');

my $sofar = 0;
my $endhere = 0;

for @seq -> $num {
    $endhere = max($endhere + $num, 0);
    $sofar   = max($sofar, $endhere);
}

say $sofar;

근데 입력예시 답 19아님?