Submission #345162


Source Code Expand

Copy
f [] c t s = s ++ c : show t
f (x:xs) c t s
  | x /= c = f xs x 1 (s ++ c : show t)
  | otherwise = f xs c (t+1) s

main = do
  s <- getLine
  putStrLn $ f (tail s) (head s) 1 ""

Submission Info

Submission Time
Task B - 高橋くんと文字列圧縮
User iwashisnake
Language Haskell (GHC 7.4.1)
Score 100
Code Size 187 Byte
Status
Exec Time 64 ms
Memory 2076 KB

Judge Result

Set Name Score / Max Score Test Cases
Sample 0 / 0 subtask0_1.txt, subtask0_2.txt, subtask0_3.txt
All 100 / 100 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 64 ms 1956 KB
1.txt 47 ms 2076 KB
10.txt 29 ms 1760 KB
11.txt 27 ms 1816 KB
12.txt 28 ms 1776 KB
13.txt 27 ms 1820 KB
14.txt 28 ms 1832 KB
15.txt 27 ms 1776 KB
16.txt 28 ms 1888 KB
17.txt 29 ms 1752 KB
18.txt 28 ms 1824 KB
19.txt 29 ms 1816 KB
2.txt 48 ms 2012 KB
20.txt 26 ms 1564 KB
21.txt 28 ms 1692 KB
22.txt 29 ms 1564 KB
23.txt 28 ms 1640 KB
24.txt 27 ms 1564 KB
25.txt 26 ms 1568 KB
26.txt 27 ms 1620 KB
27.txt 27 ms 1560 KB
28.txt 26 ms 1520 KB
29.txt 27 ms 1564 KB
3.txt 48 ms 1952 KB
4.txt 48 ms 1948 KB
5.txt 47 ms 1868 KB
6.txt 47 ms 1944 KB
7.txt 48 ms 1952 KB
8.txt 46 ms 1952 KB
9.txt 48 ms 1956 KB
subtask0_1.txt 27 ms 1264 KB
subtask0_2.txt 27 ms 1428 KB
subtask0_3.txt 26 ms 1436 KB