Submission #1881575

Source Code Expand

print"@{[map$n*$_,1..($n=<>)]}
@{[sort{$b-$a}map++$%+$n*($n-$_),glob<>]}
"

Submission Info

Submission Time
Task B - Construct Sequences
User kotatsugame
Language Perl (v5.18.2)
Score 400
Code Size 76 Byte
Status AC
Exec Time 89 ms
Memory 11360 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 3
AC × 22
Set Name Test Cases
Sample example0.txt, example1.txt, example2.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, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, example0.txt, example1.txt, example2.txt
Case Name Status Exec Time Memory
000.txt AC 12 ms 1664 KB
001.txt AC 10 ms 1408 KB
002.txt AC 9 ms 1408 KB
003.txt AC 7 ms 1152 KB
004.txt AC 10 ms 1536 KB
005.txt AC 87 ms 11108 KB
006.txt AC 21 ms 2816 KB
007.txt AC 77 ms 10100 KB
008.txt AC 46 ms 6144 KB
009.txt AC 81 ms 10728 KB
010.txt AC 87 ms 11232 KB
011.txt AC 86 ms 11232 KB
012.txt AC 89 ms 11232 KB
013.txt AC 88 ms 11232 KB
014.txt AC 87 ms 11360 KB
015.txt AC 74 ms 11232 KB
016.txt AC 74 ms 11232 KB
017.txt AC 72 ms 11232 KB
018.txt AC 73 ms 11232 KB
example0.txt AC 5 ms 768 KB
example1.txt AC 5 ms 768 KB
example2.txt AC 5 ms 768 KB