Submission #775540
Source Code Expand
$_=<>;s/^w+|ww+|w+$/_/g;$%+=(@w=/w/g)<(@i=/i/g)/2?@w:@i>>1for split _,$_;print$%,$/
Submission Info
| Submission Time | |
|---|---|
| Task | I - イウィ |
| User | x20 |
| Language | Perl (5.14.2) |
| Score | 5 |
| Code Size | 83 Byte |
| Status | AC |
| Exec Time | 30 ms |
| Memory | 1184 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 | 30 ms | 1176 KB |
| 01 | AC | 28 ms | 1172 KB |
| 02 | AC | 29 ms | 1128 KB |
| 03 | AC | 29 ms | 1140 KB |
| 04 | AC | 29 ms | 1132 KB |
| 90 | AC | 30 ms | 1184 KB |
| 91 | AC | 29 ms | 1136 KB |