Submission #1194620

---

Source Code Expand

my @data =<STDIN>;
chomp $data[0];
chomp $data[1];
my $tn = $data[0];
my @num = split(/ /, $data[1]);

my @sort = sort {$a <=> $b} @num;

my $sum=0;
for(1..$tn) {
	$sum+=$sort[$tn+$_];
}

print $sum, "\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result