Submission #97321

---

Source Code Expand

use warnings;
use strict;
use utf8;

my $N = <STDIN>;
my $ps = <STDIN>;
my @p = split /\s+/, $ps;

my %points = (0 => 1);

for my $p(@p) {
    my @keys = keys %points;
    for my $i(@keys) {
        $points{$i+$p} = 1;
    }
}

print scalar keys %points;
print "\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result