Submission #371163

Source Code Expand

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
while (my $in = <>) {
  for my $i (1 .. 5000) {
    $in =~ s/not not (?!not(?: |\n))(.*)/$1/;
  }
  print $in;
}

Submission Info

Submission Time
Task A - 二重否定除去法則
User cos
Language Perl (5.14.2)
Score 100
Code Size 175 Byte
Status AC
Exec Time 1413 ms
Memory 1316 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 32 ms 1184 KB
scrambled_01.txt AC 32 ms 1188 KB
scrambled_02.txt AC 33 ms 1196 KB
scrambled_03.txt AC 33 ms 1184 KB
scrambled_04.txt AC 30 ms 1196 KB
scrambled_05.txt AC 124 ms 1192 KB
scrambled_06.txt AC 1413 ms 1184 KB
scrambled_07.txt AC 118 ms 1180 KB
scrambled_08.txt AC 118 ms 1188 KB
scrambled_09.txt AC 53 ms 1196 KB
scrambled_10.txt AC 52 ms 1188 KB
scrambled_11.txt AC 53 ms 1196 KB
scrambled_12.txt AC 54 ms 1188 KB
scrambled_13.txt AC 56 ms 1188 KB
scrambled_14.txt AC 55 ms 1316 KB
scrambled_15.txt AC 54 ms 1312 KB
scrambled_16.txt AC 57 ms 1184 KB
scrambled_17.txt AC 56 ms 1304 KB
scrambled_18.txt AC 56 ms 1308 KB