Submission #2504103

Source Code Expand

print<>=~/.{1,5}(?{++$h{$&}})^/,(sort keys%h)[<>-1]

Submission Info

Submission Time
Task C - K-th Substring
User x20
Language Perl (v5.18.2)
Score 300
Code Size 51 Byte
Status AC
Exec Time 22 ms
Memory 3072 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample Subtask All
Score / Max Score 0 / 0 200 / 200 100 / 100
Status
AC × 3
AC × 11
AC × 19
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt
Subtask 0_000.txt, 0_001.txt, 0_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 2_011.txt, 2_012.txt, 2_013.txt, 2_014.txt, 2_015.txt, 2_016.txt, 2_017.txt, 2_018.txt
Case Name Status Exec Time Memory
0_000.txt AC 3 ms 640 KB
0_001.txt AC 2 ms 384 KB
0_002.txt AC 2 ms 384 KB
1_003.txt AC 2 ms 384 KB
1_004.txt AC 2 ms 384 KB
1_005.txt AC 2 ms 384 KB
1_006.txt AC 2 ms 384 KB
1_007.txt AC 2 ms 384 KB
1_008.txt AC 2 ms 512 KB
1_009.txt AC 2 ms 512 KB
1_010.txt AC 2 ms 512 KB
2_011.txt AC 9 ms 384 KB
2_012.txt AC 9 ms 384 KB
2_013.txt AC 20 ms 2816 KB
2_014.txt AC 21 ms 3072 KB
2_015.txt AC 17 ms 2560 KB
2_016.txt AC 22 ms 3072 KB
2_017.txt AC 22 ms 3072 KB
2_018.txt AC 22 ms 3072 KB