Submission #1721602

---

Source Code Expand

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(max);
my $n = <>;
my @t = split $", <>;
my @v = split $", <>;
my $cur = [ ( - inf ) x 403 ];
my $prv = [ ( - inf ) x 403 ];
$$cur[0] = 0;
foreach my $i (0 .. $n - 1) {
    foreach my $j (2 * $v[$i] + 1 .. 403) {
        $$cur[$j] = - inf;
        $$prv[$j] = - inf;
    }
    for (1 .. 2 * $t[$i]) {
        ($cur, $prv) = ($prv, $cur);
        foreach my $a (0 .. 2 * $v[$i]) {
            $$cur[$a] = $a * 2 + max ( $$prv[$a - 1] - 1, $$prv[$a], $$prv[$a + 1] + 1 );
        }
    }
}
printf "%.12lf\n", $$cur[0] / 8;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result