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
AC × 19
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