Submission #2718304


Source Code Expand

Copy
@s = split //, <>;
$plus = grep { $_ eq '+' } @s;
$minus = grep {$_ eq '-'} @s;

print $plus-$minus;

Submission Info

Submission Time
Task A - Eating Symbols Easy
User tsukumaru
Language Perl (v5.18.2)
Score 100
Code Size 106 Byte
Status
Exec Time 3 ms
Memory 512 KB

Compile Error

./Main.pl syntax OK

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 sample1.txt, sample2.txt, sample3.txt
All 100 / 100 sample1.txt, sample2.txt, sample3.txt, 1.txt, 2.txt, 3.txt, 4.txt, 5.txt, sample1.txt, sample2.txt, sample3.txt
Case Name Status Exec Time Memory
1.txt 3 ms 512 KB
2.txt 2 ms 384 KB
3.txt 2 ms 384 KB
4.txt 1 ms 384 KB
5.txt 2 ms 384 KB
sample1.txt 1 ms 384 KB
sample2.txt 1 ms 384 KB
sample3.txt 2 ms 384 KB