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 |
|
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 |