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
Submission Time | |
---|---|
Task | A - コンテスト |
User | shogo82148 |
Language | Perl (5.14.2) |
Score | 2 |
Code Size | 296 Byte |
Status | AC |
Exec Time | 198 ms |
Memory | 2616 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 2 / 2 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 00, 01, 02, 90, 91 |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00 | AC | 25 ms | 1080 KB |
01 | AC | 68 ms | 1720 KB |
02 | AC | 198 ms | 2616 KB |
90 | AC | 24 ms | 1160 KB |
91 | AC | 27 ms | 1076 KB |