Submission #345477


Source Code Expand

import Data.List

main :: IO ()
main = do
    input <- getLine
    let groups = group input
    let compressedParts = fmap (\s -> head s : show (length s)) groups
    print $ concat compressedParts

Submission Info

Submission Time
Task B - 高橋くんと文字列圧縮
User samu
Language Haskell (GHC 7.4.1)
Score 0
Code Size 206 Byte
Status WA
Exec Time 29 ms
Memory 1832 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 100
Status
WA × 3
WA × 33
Set Name Test Cases
Sample subtask0_1.txt, subtask0_2.txt, subtask0_3.txt
All 0.txt, 1.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 2.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_1.txt, subtask0_2.txt, subtask0_3.txt
Case Name Status Exec Time Memory
0.txt WA 28 ms 1824 KB
1.txt WA 27 ms 1828 KB
10.txt WA 26 ms 1696 KB
11.txt WA 28 ms 1692 KB
12.txt WA 28 ms 1648 KB
13.txt WA 27 ms 1732 KB
14.txt WA 27 ms 1716 KB
15.txt WA 28 ms 1692 KB
16.txt WA 28 ms 1648 KB
17.txt WA 28 ms 1696 KB
18.txt WA 28 ms 1828 KB
19.txt WA 28 ms 1644 KB
2.txt WA 29 ms 1776 KB
20.txt WA 27 ms 1648 KB
21.txt WA 27 ms 1696 KB
22.txt WA 27 ms 1684 KB
23.txt WA 27 ms 1680 KB
24.txt WA 28 ms 1684 KB
25.txt WA 27 ms 1672 KB
26.txt WA 28 ms 1692 KB
27.txt WA 26 ms 1696 KB
28.txt WA 28 ms 1688 KB
29.txt WA 28 ms 1684 KB
3.txt WA 28 ms 1828 KB
4.txt WA 28 ms 1820 KB
5.txt WA 28 ms 1824 KB
6.txt WA 29 ms 1820 KB
7.txt WA 28 ms 1832 KB
8.txt WA 28 ms 1828 KB
9.txt WA 29 ms 1816 KB
subtask0_1.txt WA 27 ms 1312 KB
subtask0_2.txt WA 27 ms 1308 KB
subtask0_3.txt WA 27 ms 1304 KB