AtCoder Beginner Contest 019

Submission #345162

Source codeソースコード

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

Task問題 B - 高橋くんと文字列圧縮
User nameユーザ名 iwashisnake
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 AC
Score得点 100
Source lengthソースコード長 187 Byte
File nameファイル名
Exec time実行時間 64 ms
Memory usageメモリ使用量 2076 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
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