Submission #705210
Source Code Expand
use strict; use warnings; my $str = <>; $str =~ s/\bnot\b/N/g; while($str =~ s/N N ([^N])/$1/g){}; $str =~ s/N/not/g; print $str;
Submission Info
Submission Time | |
---|---|
Task | A - 二重否定除去法則 |
User | tatt61880 |
Language | Perl (5.14.2) |
Score | 100 |
Code Size | 139 Byte |
Status | AC |
Exec Time | 112 ms |
Memory | 1328 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | scrambled_00.txt, scrambled_01.txt, scrambled_02.txt, scrambled_03.txt, scrambled_04.txt, scrambled_05.txt, scrambled_06.txt, scrambled_07.txt, scrambled_08.txt, scrambled_09.txt, scrambled_10.txt, scrambled_11.txt, scrambled_12.txt, scrambled_13.txt, scrambled_14.txt, scrambled_15.txt, scrambled_16.txt, scrambled_17.txt, scrambled_18.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
scrambled_00.txt | AC | 33 ms | 1320 KB |
scrambled_01.txt | AC | 33 ms | 1236 KB |
scrambled_02.txt | AC | 33 ms | 1244 KB |
scrambled_03.txt | AC | 33 ms | 1320 KB |
scrambled_04.txt | AC | 32 ms | 1308 KB |
scrambled_05.txt | AC | 101 ms | 1240 KB |
scrambled_06.txt | AC | 34 ms | 1328 KB |
scrambled_07.txt | AC | 96 ms | 1244 KB |
scrambled_08.txt | AC | 112 ms | 1240 KB |
scrambled_09.txt | AC | 34 ms | 1236 KB |
scrambled_10.txt | AC | 34 ms | 1272 KB |
scrambled_11.txt | AC | 35 ms | 1312 KB |
scrambled_12.txt | AC | 37 ms | 1320 KB |
scrambled_13.txt | AC | 34 ms | 1300 KB |
scrambled_14.txt | AC | 34 ms | 1236 KB |
scrambled_15.txt | AC | 34 ms | 1244 KB |
scrambled_16.txt | AC | 34 ms | 1308 KB |
scrambled_17.txt | AC | 34 ms | 1300 KB |
scrambled_18.txt | AC | 34 ms | 1300 KB |