Submission #1914056


Source Code Expand

($\*=$p<($%=abs($c+=2*/\n/-1))||$p)%=1e9+7,$p=$%for sort{$a-$b}map(<>+0,++$\..<>),<>;print

Submission Info

Submission Time
Task A - 1D Matching
User x20
Language Perl (v5.18.2)
Score 500
Code Size 90 Byte
Status AC
Exec Time 501 ms
Memory 27108 KB

Compile Error

Name "main::c" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 500 / 500
Status
AC × 2
AC × 14
Set Name Test Cases
Sample example0.txt, example1.txt
All 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, example0.txt, example1.txt
Case Name Status Exec Time Memory
000.txt AC 298 ms 16588 KB
001.txt AC 101 ms 6312 KB
002.txt AC 137 ms 8608 KB
003.txt AC 152 ms 9576 KB
004.txt AC 422 ms 24204 KB
005.txt AC 477 ms 27108 KB
006.txt AC 501 ms 27108 KB
007.txt AC 481 ms 27108 KB
008.txt AC 481 ms 27108 KB
009.txt AC 479 ms 27108 KB
010.txt AC 453 ms 27108 KB
011.txt AC 479 ms 27108 KB
example0.txt AC 2 ms 384 KB
example1.txt AC 2 ms 384 KB