Submission #2229352


Source Code Expand

#!/usr/bin/env perl
use warnings;
use strict;

# 入力値は大文字に変換する
my $input = uc(_stdin());

# A=1,B=2と変換する
print ord($input) - 64 . "\n";

# 標準入力用
sub _stdin {
    my $res = <STDIN>;
    chomp($res);
    return $res;
}

__END__

Submission Info

Submission Time
Task A - A
User ester41
Language Perl (v5.18.2)
Score 100
Code Size 287 Byte
Status AC
Exec Time 4 ms
Memory 640 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 5
Set Name Test Cases
all A.txt, B.txt, C.txt, D.txt, E.txt
Case Name Status Exec Time Memory
A.txt AC 4 ms 640 KB
B.txt AC 4 ms 640 KB
C.txt AC 4 ms 640 KB
D.txt AC 4 ms 640 KB
E.txt AC 4 ms 640 KB