Submission #132976

Source Code Expand

main = interact $ ans . initarray . read

initarray :: Int -> (String, Int)
initarray n
	| count <= 4  = ("123456\n", count `mod` 5 + 1)
	| count <= 9  = ("234561\n", count `mod` 5 + 1)
	| count <= 14 = ("345612\n", count `mod` 5 + 1)
	| count <= 19 = ("456123\n", count `mod` 5 + 1)
	| count <= 24 = ("561234\n", count `mod` 5 + 1)
	| count <= 29 = ("612345\n", count `mod` 5 + 1)
	where count = n `mod` 30

ans (array, i) = tail $ take i array ++ head array : [] ++ drop i array

Submission Info

Submission Time
Task C - 入れ替え
User phantomime
Language Haskell (GHC 7.4.1)
Score 100
Code Size 492 Byte
Status AC
Exec Time 68 ms
Memory 1476 KB

Judge Result

Set Name Subtask1 Subtask2
Score / Max Score 30 / 30 70 / 70
Status
AC × 13
AC × 27
Set Name Test Cases
Subtask1 SubTask1/00_sample_00.txt, SubTask1/00_sample_01.txt, SubTask1/00_sample_02.txt, SubTask1/rand_19.txt, SubTask1/rand_2.txt, SubTask1/rand_25.txt, SubTask1/rand_27.txt, SubTask1/rand_33.txt, SubTask1/rand_35.txt, SubTask1/rand_4.txt, SubTask1/rand_44.txt, SubTask1/rand_48.txt, SubTask1/rand_8.txt
Subtask2 SubTask2/00_sample_03.txt, SubTask2/max_case.txt, SubTask2/rand_120009641.txt, SubTask2/rand_134230520.txt, SubTask2/rand_136939465.txt, SubTask2/rand_200732473.txt, SubTask2/rand_211796835.txt, SubTask2/rand_312330341.txt, SubTask2/rand_377341731.txt, SubTask2/rand_384611280.txt, SubTask2/rand_386098102.txt, SubTask2/rand_399010727.txt, SubTask2/rand_409627453.txt, SubTask2/rand_416537730.txt, SubTask2/rand_425486442.txt, SubTask2/rand_493135174.txt, SubTask2/rand_573105326.txt, SubTask2/rand_62794810.txt, SubTask2/rand_649471654.txt, SubTask2/rand_693017484.txt, SubTask2/rand_729197057.txt, SubTask2/rand_759630883.txt, SubTask2/rand_823752210.txt, SubTask2/rand_830399384.txt, SubTask2/rand_893242387.txt, SubTask2/rand_935005824.txt, SubTask2/rand_989703310.txt
Case Name Status Exec Time Memory
SubTask1/00_sample_00.txt AC 68 ms 1320 KB
SubTask1/00_sample_01.txt AC 32 ms 1316 KB
SubTask1/00_sample_02.txt AC 27 ms 1308 KB
SubTask1/rand_19.txt AC 27 ms 1312 KB
SubTask1/rand_2.txt AC 29 ms 1316 KB
SubTask1/rand_25.txt AC 29 ms 1316 KB
SubTask1/rand_27.txt AC 28 ms 1432 KB
SubTask1/rand_33.txt AC 29 ms 1316 KB
SubTask1/rand_35.txt AC 27 ms 1312 KB
SubTask1/rand_4.txt AC 30 ms 1432 KB
SubTask1/rand_44.txt AC 31 ms 1428 KB
SubTask1/rand_48.txt AC 29 ms 1432 KB
SubTask1/rand_8.txt AC 27 ms 1316 KB
SubTask2/00_sample_03.txt AC 28 ms 1304 KB
SubTask2/max_case.txt AC 29 ms 1324 KB
SubTask2/rand_120009641.txt AC 29 ms 1436 KB
SubTask2/rand_134230520.txt AC 27 ms 1320 KB
SubTask2/rand_136939465.txt AC 27 ms 1432 KB
SubTask2/rand_200732473.txt AC 30 ms 1432 KB
SubTask2/rand_211796835.txt AC 28 ms 1320 KB
SubTask2/rand_312330341.txt AC 27 ms 1320 KB
SubTask2/rand_377341731.txt AC 29 ms 1324 KB
SubTask2/rand_384611280.txt AC 31 ms 1432 KB
SubTask2/rand_386098102.txt AC 29 ms 1316 KB
SubTask2/rand_399010727.txt AC 29 ms 1312 KB
SubTask2/rand_409627453.txt AC 35 ms 1320 KB
SubTask2/rand_416537730.txt AC 38 ms 1176 KB
SubTask2/rand_425486442.txt AC 29 ms 1316 KB
SubTask2/rand_493135174.txt AC 29 ms 1320 KB
SubTask2/rand_573105326.txt AC 28 ms 1316 KB
SubTask2/rand_62794810.txt AC 28 ms 1320 KB
SubTask2/rand_649471654.txt AC 34 ms 1476 KB
SubTask2/rand_693017484.txt AC 27 ms 1324 KB
SubTask2/rand_729197057.txt AC 26 ms 1312 KB
SubTask2/rand_759630883.txt AC 30 ms 1316 KB
SubTask2/rand_823752210.txt AC 29 ms 1324 KB
SubTask2/rand_830399384.txt AC 30 ms 1316 KB
SubTask2/rand_893242387.txt AC 27 ms 1316 KB
SubTask2/rand_935005824.txt AC 29 ms 1436 KB
SubTask2/rand_989703310.txt AC 29 ms 1316 KB