Submission #226001
Source Code Expand
import Control.Applicative main :: IO () main = do n <- read <$> getLine putStrLn $ solve $ n `mod` 30 solve :: Int -> String solve x = foldl apply "123456" [0..x-1] apply :: [Char] -> Int -> [Char] apply cs d = swap cs (cs !! a) (cs !! b) where a = d `mod` 5 b = d `mod` 5 + 1 swap :: [Char] -> Char -> Char -> [Char] swap [] a b = [] swap (c:cs) a b | c == a = b : swap cs a b | c == b = a : swap cs a b | otherwise = c : swap cs a b
Submission Info
Submission Time | |
---|---|
Task | C - 入れ替え |
User | hamadu |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 519 Byte |
Status | AC |
Exec Time | 28 ms |
Memory | 1208 KB |
Judge Result
Set Name | Subtask1 | Subtask2 | ||||
---|---|---|---|---|---|---|
Score / Max Score | 30 / 30 | 70 / 70 | ||||
Status |
|
|
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 | 26 ms | 1112 KB |
SubTask1/00_sample_01.txt | AC | 26 ms | 1180 KB |
SubTask1/00_sample_02.txt | AC | 26 ms | 1120 KB |
SubTask1/rand_19.txt | AC | 26 ms | 1116 KB |
SubTask1/rand_2.txt | AC | 26 ms | 1120 KB |
SubTask1/rand_25.txt | AC | 28 ms | 1112 KB |
SubTask1/rand_27.txt | AC | 26 ms | 1192 KB |
SubTask1/rand_33.txt | AC | 26 ms | 1116 KB |
SubTask1/rand_35.txt | AC | 26 ms | 1120 KB |
SubTask1/rand_4.txt | AC | 27 ms | 1116 KB |
SubTask1/rand_44.txt | AC | 24 ms | 1116 KB |
SubTask1/rand_48.txt | AC | 28 ms | 1184 KB |
SubTask1/rand_8.txt | AC | 27 ms | 1116 KB |
SubTask2/00_sample_03.txt | AC | 27 ms | 1112 KB |
SubTask2/max_case.txt | AC | 27 ms | 1188 KB |
SubTask2/rand_120009641.txt | AC | 28 ms | 1184 KB |
SubTask2/rand_134230520.txt | AC | 26 ms | 1116 KB |
SubTask2/rand_136939465.txt | AC | 25 ms | 1184 KB |
SubTask2/rand_200732473.txt | AC | 25 ms | 1112 KB |
SubTask2/rand_211796835.txt | AC | 26 ms | 1116 KB |
SubTask2/rand_312330341.txt | AC | 26 ms | 1116 KB |
SubTask2/rand_377341731.txt | AC | 26 ms | 1120 KB |
SubTask2/rand_384611280.txt | AC | 25 ms | 1116 KB |
SubTask2/rand_386098102.txt | AC | 27 ms | 1120 KB |
SubTask2/rand_399010727.txt | AC | 28 ms | 1180 KB |
SubTask2/rand_409627453.txt | AC | 26 ms | 1172 KB |
SubTask2/rand_416537730.txt | AC | 27 ms | 1116 KB |
SubTask2/rand_425486442.txt | AC | 27 ms | 1120 KB |
SubTask2/rand_493135174.txt | AC | 27 ms | 1116 KB |
SubTask2/rand_573105326.txt | AC | 25 ms | 1116 KB |
SubTask2/rand_62794810.txt | AC | 27 ms | 1112 KB |
SubTask2/rand_649471654.txt | AC | 27 ms | 1208 KB |
SubTask2/rand_693017484.txt | AC | 27 ms | 1184 KB |
SubTask2/rand_729197057.txt | AC | 27 ms | 1060 KB |
SubTask2/rand_759630883.txt | AC | 27 ms | 1120 KB |
SubTask2/rand_823752210.txt | AC | 25 ms | 1120 KB |
SubTask2/rand_830399384.txt | AC | 27 ms | 1180 KB |
SubTask2/rand_893242387.txt | AC | 26 ms | 1116 KB |
SubTask2/rand_935005824.txt | AC | 27 ms | 1112 KB |
SubTask2/rand_989703310.txt | AC | 27 ms | 1112 KB |