Submission #1913249

Source Code Expand

$n=<>;$\=1;$c||($a=$h{$_}),$a-$h{$_}?$\=$\*$c--%(1e9+7):$c++for sort{$a-$b}keys{%h=map{$_,$i++<$n}<>};print

Submission Info

Submission Time
Task A - 1D Matching
User kotatsugame
Language Perl (v5.18.2)
Score 500
Code Size 107 Byte
Status AC
Exec Time 888 ms
Memory 126564 KB

Compile Error

Name "main::i" 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 468 ms 75904 KB
001.txt AC 147 ms 28160 KB
002.txt AC 204 ms 38528 KB
003.txt AC 241 ms 44288 KB
004.txt AC 718 ms 113152 KB
005.txt AC 813 ms 126080 KB
006.txt AC 870 ms 126080 KB
007.txt AC 864 ms 126080 KB
008.txt AC 868 ms 126080 KB
009.txt AC 875 ms 126564 KB
010.txt AC 853 ms 126080 KB
011.txt AC 888 ms 126080 KB
example0.txt AC 2 ms 384 KB
example1.txt AC 2 ms 384 KB