Submission #448971


Source Code Expand

main = getLine >>= main' . read . head . words
    where
        main' n = getContents >>= print . solve n . map (map read . words) . lines

solve :: Int -> [[Int]] -> Int
solve n ys = foldl (\acc x -> max acc $ check (getCnd cnds x) cnds) 1 [1..n]
    where
        cnds = foldr ff [] [1..n]
        ff x acc = (x, foldl ff' [] ys) : acc
            where
                ff' acc [a, b]
                    | a == x = b : acc
                    | b == x = a : acc
                    | otherwise = acc

check :: [Int] -> [(Int, [Int])] -> Int
check [] _ = 1
check (y : ys) cnds = check yys' cnds + 1
    where
        yys' = elems ys (getCnd cnds y)

getCnd :: [(Int, [Int])] -> Int -> [Int]
getCnd cnds = snd . (cnds !!) . pred


elems :: (Eq a) => [a] -> [a] -> [a]
elems xs = filter (`elem` xs)

Submission Info

Submission Time
Task D - 派閥
User lodnix
Language Haskell (GHC 7.4.1)
Score 0
Code Size 827 Byte
Status WA
Exec Time 40 ms
Memory 2192 KB

Judge Result

Set Name all
Score / Max Score 0 / 100
Status
AC × 73
WA × 1
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, test_01.txt, test_02.txt, test_03.txt, test_04.txt, test_05.txt, test_06.txt, test_07.txt, test_08.txt, test_09.txt, test_10.txt, test_11.txt, test_12.txt, test_13.txt, test_14.txt, test_15.txt, test_16.txt, test_17.txt, test_18.txt, test_19.txt, test_20.txt, test_21.txt, test_22.txt, test_23.txt, test_24.txt, test_25.txt, test_26.txt, test_27.txt, test_28.txt, test_29.txt, test_30.txt, test_31.txt, test_32.txt, test_33.txt, test_34.txt, test_35.txt, test_36.txt, test_37.txt, test_38.txt, test_39.txt, test_40.txt, test_41.txt, test_42.txt, test_43.txt, test_44.txt, test_45.txt, test_46.txt, test_47.txt, test_48.txt, test_49.txt, test_50.txt, test_51.txt, test_52.txt, test_53.txt, test_54.txt, test_55.txt, test_56.txt, test_57.txt, test_58.txt, test_59.txt, test_60.txt, test_61.txt, test_62.txt, test_63.txt, test_64.txt, test_65.txt, test_66.txt, test_67.txt, test_68.txt, test_69.txt, test_70.txt
Case Name Status Exec Time Memory
00_sample_01.txt AC 30 ms 1552 KB
00_sample_02.txt AC 30 ms 1528 KB
00_sample_03.txt AC 32 ms 1716 KB
00_sample_04.txt AC 32 ms 1552 KB
test_01.txt AC 31 ms 1556 KB
test_02.txt AC 31 ms 1568 KB
test_03.txt AC 30 ms 1616 KB
test_04.txt AC 32 ms 1552 KB
test_05.txt AC 32 ms 1596 KB
test_06.txt AC 30 ms 1548 KB
test_07.txt AC 31 ms 1556 KB
test_08.txt AC 33 ms 1980 KB
test_09.txt AC 36 ms 2120 KB
test_10.txt AC 34 ms 1944 KB
test_11.txt AC 33 ms 1748 KB
test_12.txt AC 34 ms 2068 KB
test_13.txt AC 32 ms 1612 KB
test_14.txt AC 32 ms 1556 KB
test_15.txt AC 34 ms 1876 KB
test_16.txt AC 34 ms 2016 KB
test_17.txt AC 32 ms 2064 KB
test_18.txt AC 32 ms 1920 KB
test_19.txt AC 32 ms 2040 KB
test_20.txt AC 33 ms 2060 KB
test_21.txt AC 33 ms 2068 KB
test_22.txt AC 33 ms 2068 KB
test_23.txt AC 32 ms 2068 KB
test_24.txt AC 35 ms 1992 KB
test_25.txt AC 32 ms 1548 KB
test_26.txt WA 34 ms 1992 KB
test_27.txt AC 33 ms 1804 KB
test_28.txt AC 32 ms 1680 KB
test_29.txt AC 33 ms 1932 KB
test_30.txt AC 34 ms 2060 KB
test_31.txt AC 35 ms 1984 KB
test_32.txt AC 34 ms 2060 KB
test_33.txt AC 35 ms 2108 KB
test_34.txt AC 40 ms 2120 KB
test_35.txt AC 34 ms 2064 KB
test_36.txt AC 35 ms 2192 KB
test_37.txt AC 32 ms 1684 KB
test_38.txt AC 36 ms 2096 KB
test_39.txt AC 35 ms 2188 KB
test_40.txt AC 34 ms 1868 KB
test_41.txt AC 36 ms 1996 KB
test_42.txt AC 35 ms 1988 KB
test_43.txt AC 35 ms 2016 KB
test_44.txt AC 34 ms 2124 KB
test_45.txt AC 35 ms 2060 KB
test_46.txt AC 34 ms 2064 KB
test_47.txt AC 36 ms 2132 KB
test_48.txt AC 36 ms 1996 KB
test_49.txt AC 35 ms 2116 KB
test_50.txt AC 34 ms 1932 KB
test_51.txt AC 34 ms 2188 KB
test_52.txt AC 34 ms 2064 KB
test_53.txt AC 35 ms 2004 KB
test_54.txt AC 32 ms 2000 KB
test_55.txt AC 34 ms 2060 KB
test_56.txt AC 34 ms 2068 KB
test_57.txt AC 34 ms 2068 KB
test_58.txt AC 34 ms 2064 KB
test_59.txt AC 34 ms 2064 KB
test_60.txt AC 34 ms 2064 KB
test_61.txt AC 34 ms 1996 KB
test_62.txt AC 30 ms 1556 KB
test_63.txt AC 32 ms 2060 KB
test_64.txt AC 34 ms 2068 KB
test_65.txt AC 34 ms 2064 KB
test_66.txt AC 35 ms 2064 KB
test_67.txt AC 33 ms 2064 KB
test_68.txt AC 33 ms 2064 KB
test_69.txt AC 33 ms 2068 KB
test_70.txt AC 31 ms 2068 KB