Submission #1881574

Source Code Expand

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

Submission Info

Submission Time
Task B - Construct Sequences
User kotatsugame
Language Perl (v5.18.2)
Score 400
Code Size 89 Byte
Status AC
Exec Time 76 ms
Memory 10424 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 11 ms 1664 KB
001.txt AC 9 ms 1408 KB
002.txt AC 9 ms 1280 KB
003.txt AC 7 ms 1024 KB
004.txt AC 10 ms 1408 KB
005.txt AC 73 ms 10260 KB
006.txt AC 18 ms 2560 KB
007.txt AC 67 ms 9164 KB
008.txt AC 40 ms 5760 KB
009.txt AC 72 ms 9912 KB
010.txt AC 76 ms 10296 KB
011.txt AC 73 ms 10296 KB
012.txt AC 73 ms 10424 KB
013.txt AC 74 ms 10296 KB
014.txt AC 75 ms 10296 KB
015.txt AC 72 ms 10424 KB
016.txt AC 73 ms 10296 KB
017.txt AC 71 ms 10424 KB
018.txt AC 71 ms 10424 KB
example0.txt AC 5 ms 768 KB
example1.txt AC 5 ms 768 KB
example2.txt AC 5 ms 768 KB