Submission #1969778


Source Code Expand

Copy
main :: IO ()
main = getLine >>= print . solve

solve :: String -> Int 
solve = br . diffs
    where
        br (Just xs) = maximum xs
        br _ = -1

diffs :: String -> Maybe [Int]
diffs = check 0
    where
        check a (x : xs)
            | x == '2' = ((a + 1) :) <$> check (a + 1) xs
            | a == 0 = Nothing
            | otherwise = ((a - 1) :) <$> check (a - 1) xs

        check a _
            | a == 0 = return [a]
            | otherwise = Nothing

Submission Info

Submission Time
Task B - 2525文字列分解
User lodnix
Language Haskell (GHC 7.10.3)
Score 300
Code Size 491 Byte
Status
Exec Time 2 ms
Memory 892 KB

Judge Result

Set Name Score / Max Score Test Cases
Sample 0 / 0 00_example_01.txt, 00_example_02.txt, 00_example_03.txt, 00_example_04.txt
All 300 / 300 00_example_01.txt, 00_example_02.txt, 00_example_03.txt, 00_example_04.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 30.txt, 31.txt, 32.txt, 33.txt, 34.txt, 35.txt, 36.txt
Case Name Status Exec Time Memory
00_example_01.txt 1 ms 380 KB
00_example_02.txt 1 ms 380 KB
00_example_03.txt 1 ms 380 KB
00_example_04.txt 1 ms 380 KB
01.txt 2 ms 892 KB
02.txt 2 ms 892 KB
03.txt 2 ms 892 KB
04.txt 2 ms 892 KB
05.txt 1 ms 508 KB
06.txt 1 ms 508 KB
07.txt 1 ms 508 KB
08.txt 1 ms 508 KB
09.txt 1 ms 508 KB
10.txt 2 ms 892 KB
11.txt 2 ms 892 KB
12.txt 1 ms 508 KB
13.txt 1 ms 508 KB
14.txt 1 ms 508 KB
15.txt 1 ms 508 KB
16.txt 1 ms 508 KB
17.txt 1 ms 508 KB
18.txt 1 ms 508 KB
19.txt 1 ms 636 KB
20.txt 1 ms 508 KB
21.txt 1 ms 508 KB
22.txt 1 ms 508 KB
23.txt 1 ms 508 KB
24.txt 1 ms 508 KB
25.txt 1 ms 636 KB
26.txt 1 ms 508 KB
27.txt 2 ms 892 KB
28.txt 2 ms 892 KB
29.txt 2 ms 892 KB
30.txt 2 ms 892 KB
31.txt 2 ms 892 KB
32.txt 2 ms 892 KB
33.txt 2 ms 892 KB
34.txt 2 ms 892 KB
35.txt 1 ms 380 KB
36.txt 1 ms 380 KB