Submission #641899

---

Source Code Expand

use strict;
use warnings;

my $N = <STDIN>;
chomp $N;
my $s1000 = substr $N,0,1;
my $s100  = substr $N,1,1;
my $s10   = substr $N,2,1;
my $s1    = substr $N,3,1;
if($s1000 == $s100 && $s100 == $s10 && $s10 == $s1) {
 print "SAME\n";
}
else {
 print "DIFFERENT\n"
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result