Submission #641848

Source Code Expand

#!/usr/bin/perl

use strict;
use warnings;

$_ = <STDIN>;
chomp;
my ($a, $b, $c, $d) = split(//);
if ($a==$b && $b == $c && $c == $d) {
  print "SAME\n";
}else {
  print "DIFFERENT\n";
}

Submission Info

Submission Time
Task A - 暗証番号
User yamate11
Language Perl (5.14.2)
Score 100
Code Size 200 Byte
Status AC
Exec Time 39 ms
Memory 1568 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 20
Set Name Test Cases
sample sample-01.txt, sample-02.txt, sample-03.txt
All 01.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, sample-01.txt, sample-02.txt, sample-03.txt
Case Name Status Exec Time Memory
01.txt AC 38 ms 1496 KB
03.txt AC 39 ms 1504 KB
04.txt AC 37 ms 1536 KB
05.txt AC 37 ms 1488 KB
06.txt AC 37 ms 1440 KB
07.txt AC 37 ms 1496 KB
08.txt AC 39 ms 1564 KB
09.txt AC 37 ms 1456 KB
11.txt AC 37 ms 1504 KB
12.txt AC 35 ms 1496 KB
13.txt AC 37 ms 1568 KB
14.txt AC 37 ms 1564 KB
15.txt AC 36 ms 1504 KB
16.txt AC 36 ms 1564 KB
17.txt AC 35 ms 1500 KB
18.txt AC 36 ms 1500 KB
19.txt AC 36 ms 1504 KB
sample-01.txt AC 37 ms 1564 KB
sample-02.txt AC 36 ms 1504 KB
sample-03.txt AC 37 ms 1504 KB