Submission #1768694
Source Code Expand
import Data.List turn :: [(Int, Bool)] -> [(Int, Bool)] turn cs = turn' (length cs) (0::Int) cs where turn' _ _ [] = [] turn' n m (x:xs) = left ++ turn' n (m + 1) [flipcoin coin | coin <- right] where left = [x] number = fst x right = xs flipcoin (a, b) = if a `mod` number == 0 then (a, not b) else (a, b) fact :: Int -> Int fact 0 = 1 fact 1 = 1 fact n = n * fact (n - 1) demeList :: [Int] -> [(Int, Bool)] demeList list = concatMap (\rs -> let coins = zip rs (replicate (length rs) True) in turn coins ) (permutations list) headCount :: [(Int, Bool)] -> Int headCount = foldl (\s (_,b) -> if b then s + 1 else s) 0 main :: IO () main = do n <- readLn :: IO Int list <- mapM (\_ -> readLn :: IO Int) [1..n] let total = realToFrac (headCount $ demeList list) count = realToFrac (fact n) expected = total / count :: Double print expected
Submission Info
Submission Time | |
---|---|
Task | C - コイン |
User | atctk |
Language | Haskell (GHC 7.10.3) |
Score | 99 |
Code Size | 991 Byte |
Status | TLE |
Exec Time | 2103 ms |
Memory | 2428 KB |
Judge Result
Set Name | Sample | Subtask1 | Subtask2 | ||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 99 / 99 | 0 / 1 | ||||||||
Status |
|
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
Subtask1 | subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt |
Subtask2 | subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt, subtask2_01.txt, subtask2_02.txt, subtask2_03.txt, subtask2_04.txt, subtask2_05.txt, subtask2_06.txt, subtask2_07.txt, subtask2_08.txt, subtask2_09.txt, subtask2_10.txt, subtask2_11.txt, subtask2_12.txt, subtask2_13.txt, subtask2_14.txt, subtask2_15.txt, subtask2_16.txt, subtask2_17.txt, subtask2_18.txt, subtask2_19.txt, subtask2_20.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 2 ms | 508 KB |
sample_02.txt | AC | 1 ms | 636 KB |
sample_03.txt | AC | 2 ms | 892 KB |
subtask1_01.txt | AC | 1 ms | 508 KB |
subtask1_02.txt | AC | 3 ms | 1020 KB |
subtask1_03.txt | AC | 2 ms | 636 KB |
subtask1_04.txt | AC | 70 ms | 2428 KB |
subtask1_05.txt | AC | 73 ms | 2300 KB |
subtask1_06.txt | AC | 10 ms | 1788 KB |
subtask1_07.txt | AC | 67 ms | 2428 KB |
subtask1_08.txt | AC | 3 ms | 1020 KB |
subtask1_09.txt | AC | 2 ms | 636 KB |
subtask1_10.txt | AC | 72 ms | 2428 KB |
subtask1_11.txt | AC | 3 ms | 1020 KB |
subtask1_12.txt | AC | 67 ms | 2428 KB |
subtask1_13.txt | AC | 2 ms | 892 KB |
subtask1_14.txt | AC | 10 ms | 1788 KB |
subtask1_15.txt | AC | 76 ms | 2300 KB |
subtask1_16.txt | AC | 67 ms | 2300 KB |
subtask1_17.txt | AC | 76 ms | 2428 KB |
subtask1_18.txt | AC | 77 ms | 2428 KB |
subtask1_19.txt | AC | 75 ms | 2300 KB |
subtask1_20.txt | AC | 73 ms | 2300 KB |
subtask2_01.txt | TLE | 2103 ms | 2300 KB |
subtask2_02.txt | TLE | 2103 ms | 2428 KB |
subtask2_03.txt | TLE | 2103 ms | 2300 KB |
subtask2_04.txt | TLE | 2103 ms | 2300 KB |
subtask2_05.txt | TLE | 2103 ms | 2428 KB |
subtask2_06.txt | TLE | 2103 ms | 2300 KB |
subtask2_07.txt | TLE | 2103 ms | 2300 KB |
subtask2_08.txt | TLE | 2103 ms | 2300 KB |
subtask2_09.txt | TLE | 2103 ms | 2300 KB |
subtask2_10.txt | TLE | 2103 ms | 2428 KB |
subtask2_11.txt | TLE | 2103 ms | 1916 KB |
subtask2_12.txt | TLE | 2103 ms | 2428 KB |
subtask2_13.txt | TLE | 2103 ms | 2300 KB |
subtask2_14.txt | TLE | 2103 ms | 2428 KB |
subtask2_15.txt | TLE | 2103 ms | 2428 KB |
subtask2_16.txt | TLE | 2103 ms | 2428 KB |
subtask2_17.txt | TLE | 2103 ms | 2300 KB |
subtask2_18.txt | TLE | 2103 ms | 2300 KB |
subtask2_19.txt | TLE | 2103 ms | 2428 KB |
subtask2_20.txt | TLE | 2103 ms | 2300 KB |