Submission #1042085
Source Code Expand
($x,$y)=glob<>; if($x==0){ print abs($y)+($y<0),$/ }elsif($y==0){ print abs($x)+($x>0),$/ }elsif($x*$y<0){ print abs(abs($y)-abs($x))+1,$/ }elsif($x<$y){ print$y-$x,$/ }else{ print abs(abs($y)-abs($x))+2,$/ }
Submission Info
Submission Time | |
---|---|
Task | A - Simple Calculator |
User | x20 |
Language | Perl (v5.18.2) |
Score | 300 |
Code Size | 226 Byte |
Status | AC |
Exec Time | 7 ms |
Memory | 768 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 300 / 300 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | 0_00.txt, 0_01.txt, 0_02.txt |
All | 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt, 1_05.txt, 1_06.txt, 1_07.txt, 1_08.txt, 1_09.txt, 1_10.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
0_00.txt | AC | 7 ms | 768 KB |
0_01.txt | AC | 7 ms | 768 KB |
0_02.txt | AC | 7 ms | 768 KB |
1_00.txt | AC | 7 ms | 768 KB |
1_01.txt | AC | 7 ms | 768 KB |
1_02.txt | AC | 7 ms | 768 KB |
1_03.txt | AC | 7 ms | 768 KB |
1_04.txt | AC | 7 ms | 768 KB |
1_05.txt | AC | 7 ms | 768 KB |
1_06.txt | AC | 7 ms | 768 KB |
1_07.txt | AC | 7 ms | 768 KB |
1_08.txt | AC | 7 ms | 768 KB |
1_09.txt | AC | 7 ms | 768 KB |
1_10.txt | AC | 7 ms | 768 KB |