Submission #347164


Source Code Expand

my $s = <>;
$s =~ s/((\w)\2*)/$2.length($1)/eg;
print $s;

Submission Info

Submission Time
Task B - 高橋くんと文字列圧縮
User climpet
Language Perl (5.14.2)
Score 100
Code Size 61 Byte
Status AC
Exec Time 28 ms
Memory 1188 KB

Compile Error

./Main.pl syntax OK

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 26 ms 1044 KB
1.txt AC 24 ms 1060 KB
10.txt AC 24 ms 932 KB
11.txt AC 24 ms 932 KB
12.txt AC 24 ms 940 KB
13.txt AC 25 ms 936 KB
14.txt AC 25 ms 940 KB
15.txt AC 26 ms 1004 KB
16.txt AC 24 ms 1056 KB
17.txt AC 24 ms 1048 KB
18.txt AC 25 ms 1048 KB
19.txt AC 24 ms 928 KB
2.txt AC 26 ms 936 KB
20.txt AC 27 ms 1180 KB
21.txt AC 26 ms 1180 KB
22.txt AC 26 ms 1052 KB
23.txt AC 24 ms 1184 KB
24.txt AC 25 ms 1140 KB
25.txt AC 24 ms 1176 KB
26.txt AC 25 ms 1140 KB
27.txt AC 25 ms 1064 KB
28.txt AC 25 ms 1188 KB
29.txt AC 24 ms 1172 KB
3.txt AC 24 ms 1052 KB
4.txt AC 25 ms 1060 KB
5.txt AC 25 ms 936 KB
6.txt AC 25 ms 924 KB
7.txt AC 26 ms 928 KB
8.txt AC 28 ms 1056 KB
9.txt AC 25 ms 992 KB
subtask0_1.txt AC 23 ms 924 KB
subtask0_2.txt AC 23 ms 920 KB
subtask0_3.txt AC 25 ms 920 KB