Submission #3281120

Source Code Expand

sub f{my$i=pop;$u[$i]=$u[$i]-$i?f($u[$i]):$i}@u=0..<>;print~~grep{/ /,$u[f$']=f$`for<>;f(++$i)==f$_}glob<>

Submission Info

Submission Time
Task D - Equals
User kotatsugame
Language Perl (v5.18.2)
Score 400
Code Size 106 Byte
Status AC
Exec Time 1173 ms
Memory 41420 KB

Compile Error

Name "main::i" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 4
AC × 23
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 1_011.txt, 1_012.txt, 1_013.txt, 1_014.txt, 1_015.txt, 1_016.txt, 1_017.txt, 1_018.txt, 1_019.txt, 1_020.txt, 1_021.txt, 1_022.txt
Case Name Status Exec Time Memory
0_000.txt AC 5 ms 768 KB
0_001.txt AC 5 ms 768 KB
0_002.txt AC 5 ms 768 KB
0_003.txt AC 5 ms 768 KB
1_004.txt AC 314 ms 15616 KB
1_005.txt AC 935 ms 36556 KB
1_006.txt AC 1100 ms 41420 KB
1_007.txt AC 5 ms 768 KB
1_008.txt AC 5 ms 768 KB
1_009.txt AC 5 ms 768 KB
1_010.txt AC 5 ms 768 KB
1_011.txt AC 5 ms 768 KB
1_012.txt AC 6 ms 768 KB
1_013.txt AC 8 ms 896 KB
1_014.txt AC 21 ms 1536 KB
1_015.txt AC 10 ms 1024 KB
1_016.txt AC 11 ms 1024 KB
1_017.txt AC 15 ms 1152 KB
1_018.txt AC 289 ms 14464 KB
1_019.txt AC 603 ms 29644 KB
1_020.txt AC 598 ms 29772 KB
1_021.txt AC 602 ms 29772 KB
1_022.txt AC 1173 ms 40780 KB