Submission #2502148

Source Code Expand

my $a=get;my $b=get.Int; (1..$a.chars).flatmap(-> $p { (0..$p).flatmap(-> $q { $a.substr($q).comb($p) }) }).sort.unique.[$b-1].say

Submission Info

Submission Time
Task C - K-th Substring
User omniheal
Language Perl6 (rakudo-star 2016.01)
Score 200
Code Size 130 Byte
Status TLE
Exec Time 2111 ms
Memory 112116 KiB

Judge Result

Set Name Sample Subtask All
Score / Max Score 0 / 0 200 / 200 0 / 100
Status
AC × 3
AC × 11
AC × 11
TLE × 8
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 854 ms 67096 KiB
0_001.txt AC 184 ms 54936 KiB
0_002.txt AC 151 ms 51996 KiB
1_003.txt AC 152 ms 51740 KiB
1_004.txt AC 155 ms 52508 KiB
1_005.txt AC 357 ms 64728 KiB
1_006.txt AC 362 ms 68036 KiB
1_007.txt AC 184 ms 55064 KiB
1_008.txt AC 295 ms 61976 KiB
1_009.txt AC 247 ms 61596 KiB
1_010.txt AC 287 ms 61972 KiB
2_011.txt TLE 2110 ms 112116 KiB
2_012.txt TLE 2111 ms 109812 KiB
2_013.txt TLE 2111 ms 108784 KiB
2_014.txt TLE 2111 ms 109816 KiB
2_015.txt TLE 2110 ms 108352 KiB
2_016.txt TLE 2111 ms 108920 KiB
2_017.txt TLE 2111 ms 108920 KiB
2_018.txt TLE 2111 ms 109816 KiB