Submission #183356

---

Source Code Expand

use utf8;
use strict;
use warnings;
use Data::Dumper;
use List::Util qw/max/;

chomp(my $ds = <>);
chomp(my $js = <>);

my @ds = split ' ', $ds;
my @js = split ' ', $js;

my $sum = 0;
for my $i (0..$#ds) {
    my $d = $ds[$i];
    my $j = $js[$i];
    $sum += max($d, $j);
}

print $sum, "\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result