Submission #3281103
Source Code Expand
sub f{my$i=pop;$u[$i]=$u[$i]-$i?f($u[$i]):$i}@u=0..<>;@p=glob<>;/ /,$u[f$']=f$`for<>;print~~grep f($_)==f($p[$_-1]),1..@p
Submission Info
Submission Time | |
---|---|
Task | D - Equals |
User | kotatsugame |
Language | Perl (v5.18.2) |
Score | 400 |
Code Size | 121 Byte |
Status | AC |
Exec Time | 982 ms |
Memory | 35828 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 400 / 400 | ||||
Status |
|
|
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 | 4 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 | 306 ms | 15616 KB |
1_005.txt | AC | 724 ms | 31092 KB |
1_006.txt | AC | 877 ms | 35828 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 | 5 ms | 768 KB |
1_013.txt | AC | 8 ms | 896 KB |
1_014.txt | AC | 20 ms | 1536 KB |
1_015.txt | AC | 8 ms | 1024 KB |
1_016.txt | AC | 8 ms | 1024 KB |
1_017.txt | AC | 13 ms | 1152 KB |
1_018.txt | AC | 287 ms | 14336 KB |
1_019.txt | AC | 398 ms | 29684 KB |
1_020.txt | AC | 399 ms | 29684 KB |
1_021.txt | AC | 415 ms | 29684 KB |
1_022.txt | AC | 982 ms | 35188 KB |