前ｽﾚ>>995 Perl5

@a = qw[-2 1 -3 4 -1 2 1 -5 4];
sub f {
　my ($i, $j) = @_;
　return $t[$i][$j] if defined $t[$i][$j];
　$t[$i][$j] = $a[$i] + ($i < $j ? f($i+1, $j) : 0);
}
for $i (0..$#a) {
　for $j (reverse 0..$#a) {
　　my $v = f($i, $j);
　　if (!defined($max) or $max < $v) {
　　　$max = $v;
　　　($s, $e) = ($i, $j);
　　}
　}
}
print "@a[$s..$e]\n"


~ $ perl 18_995_sumsubarry_dp.pl
4 -1 2 1