Submission #3281112
Source Code Expand
sub f{my$i=pop;$u[$i]=$u[$i]-$i?f($u[$i]):$i}@u=0..<>;$\+=f(++${/ /,$u[f$']=f$`for<>;i})==f$_ for glob<>;print
Submission Info
| Submission Time | |
|---|---|
| Task | D - Equals |
| User | kotatsugame |
| Language | Perl (v5.18.2) |
| Score | 400 |
| Code Size | 110 Byte |
| Status | AC |
| Exec Time | 1262 ms |
| Memory | 41420 KB |
Compile Error
Unquoted string "i" may clash with future reserved word at ./Main.pl line 1. ./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 | 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 | 315 ms | 15616 KB |
| 1_005.txt | AC | 997 ms | 36556 KB |
| 1_006.txt | AC | 1146 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 | 11 ms | 1024 KB |
| 1_016.txt | AC | 12 ms | 1024 KB |
| 1_017.txt | AC | 16 ms | 1152 KB |
| 1_018.txt | AC | 292 ms | 14464 KB |
| 1_019.txt | AC | 693 ms | 29644 KB |
| 1_020.txt | AC | 686 ms | 29644 KB |
| 1_021.txt | AC | 695 ms | 29772 KB |
| 1_022.txt | AC | 1262 ms | 40780 KB |