Submission #1167307

Source Code Expand

sub min{$_[$_[1]<$_[0]]}
$X=<>;
$n=sqrt(1+8*$X)-1>>1;
print$n+min($X-$n*($n+1)/2,(($n+1)*($n+2)/2-$X)*2),$/

Submission Info

Submission Time
Task C - Go Home
User x20
Language Perl (v5.18.2)
Score 0
Code Size 112 Byte
Status WA
Exec Time 3 ms
Memory 512 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 200
Status
AC × 3
AC × 10
WA × 8
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 1_011.txt, 1_012.txt, 1_013.txt, 1_014.txt, 1_015.txt, 1_016.txt, 1_017.txt
Case Name Status Exec Time Memory
0_000.txt AC 3 ms 512 KB
0_001.txt AC 2 ms 384 KB
0_002.txt AC 2 ms 384 KB
1_003.txt WA 2 ms 384 KB
1_004.txt WA 2 ms 384 KB
1_005.txt AC 2 ms 384 KB
1_006.txt AC 2 ms 384 KB
1_007.txt WA 2 ms 384 KB
1_008.txt AC 2 ms 384 KB
1_009.txt WA 2 ms 384 KB
1_010.txt AC 2 ms 384 KB
1_011.txt WA 2 ms 384 KB
1_012.txt AC 2 ms 384 KB
1_013.txt WA 2 ms 384 KB
1_014.txt AC 2 ms 384 KB
1_015.txt WA 2 ms 384 KB
1_016.txt AC 2 ms 384 KB
1_017.txt WA 2 ms 384 KB