Submission #345162

Source Code Expand

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 AC
Exec Time 64 ms
Memory 2076 KB

Judge Result

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