Submission #775543
Source Code Expand
$%+=(@w=/w/g)<(@i=/i/g)/2?@w:@i>>1for split _,<>=~s/^w+|ww+|w+$/_/gr;print$%,$/
Submission Info
| Submission Time | |
|---|---|
| Task | I - イウィ |
| User | x20 |
| Language | Perl (5.14.2) |
| Score | 5 |
| Code Size | 79 Byte |
| Status | AC |
| Exec Time | 35 ms |
| Memory | 1576 KB |
Compile Error
./Main.pl syntax OK
Judge Result
| Set Name | All | ||
|---|---|---|---|
| Score / Max Score | 5 / 5 | ||
| Status |
|
| Set Name | Test Cases |
|---|---|
| All | 00, 01, 02, 03, 04, 90, 91 |
| Case Name | Status | Exec Time | Memory |
|---|---|---|---|
| 00 | AC | 35 ms | 1380 KB |
| 01 | AC | 32 ms | 1376 KB |
| 02 | AC | 32 ms | 1516 KB |
| 03 | AC | 32 ms | 1508 KB |
| 04 | AC | 31 ms | 1488 KB |
| 90 | AC | 32 ms | 1576 KB |
| 91 | AC | 31 ms | 1380 KB |