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
AC × 3
AC × 14
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