Submission #371134

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)(.*)/$1/;
  }
  print $in;
}

Submission Info

Submission Time
Task A - 二重否定除去法則
User cos
Language Perl (5.14.2)
Score 0
Code Size 167 Byte
Status WA
Exec Time 1111 ms
Memory 1320 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 0 / 100
Status
AC × 18
WA × 1
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 1192 KB
scrambled_01.txt AC 31 ms 1304 KB
scrambled_02.txt AC 35 ms 1188 KB
scrambled_03.txt AC 35 ms 1192 KB
scrambled_04.txt WA 34 ms 1184 KB
scrambled_05.txt AC 104 ms 1136 KB
scrambled_06.txt AC 1111 ms 1188 KB
scrambled_07.txt AC 99 ms 1180 KB
scrambled_08.txt AC 102 ms 1192 KB
scrambled_09.txt AC 52 ms 1192 KB
scrambled_10.txt AC 52 ms 1184 KB
scrambled_11.txt AC 53 ms 1192 KB
scrambled_12.txt AC 56 ms 1312 KB
scrambled_13.txt AC 60 ms 1120 KB
scrambled_14.txt AC 56 ms 1308 KB
scrambled_15.txt AC 57 ms 1312 KB
scrambled_16.txt AC 57 ms 1320 KB
scrambled_17.txt AC 58 ms 1316 KB
scrambled_18.txt AC 59 ms 1316 KB