Submission #2245059

Source Code Expand

$_=join'',qw(nil un bi tri quad pent hex sept oct enn)[<>=~/./g],ium;s/i\Ki|nn\Kn//g;print"\u$_\n"

Submission Info

Submission Time
Task B - 元素の系統名
User x20
Language Perl (v5.18.2)
Score 100
Code Size 98 Byte
Status AC
Exec Time 2 ms
Memory 512 KB

Compile Error

Unquoted string "ium" may clash with future reserved word at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 32
Set Name Test Cases
All basic_case00, basic_case01, basic_case02, basic_case03, basic_case04, basic_case05, basic_case06, basic_case07, basic_case08, basic_case09, basic_case10, basic_case11, basic_case12, basic_case13, basic_case14, basic_case15, basic_case16, basic_case17, basic_case18, basic_case19, basic_case20, basic_case21, basic_case22, basic_case23, basic_case24, basic_case25, basic_case26, basic_case27, basic_case28, basic_case29, sample00, sample01
Case Name Status Exec Time Memory
basic_case00 AC 2 ms 512 KB
basic_case01 AC 2 ms 384 KB
basic_case02 AC 2 ms 384 KB
basic_case03 AC 1 ms 384 KB
basic_case04 AC 1 ms 384 KB
basic_case05 AC 1 ms 384 KB
basic_case06 AC 1 ms 384 KB
basic_case07 AC 1 ms 384 KB
basic_case08 AC 2 ms 384 KB
basic_case09 AC 1 ms 384 KB
basic_case10 AC 2 ms 384 KB
basic_case11 AC 2 ms 384 KB
basic_case12 AC 2 ms 384 KB
basic_case13 AC 1 ms 384 KB
basic_case14 AC 1 ms 384 KB
basic_case15 AC 2 ms 384 KB
basic_case16 AC 2 ms 384 KB
basic_case17 AC 2 ms 384 KB
basic_case18 AC 2 ms 384 KB
basic_case19 AC 1 ms 384 KB
basic_case20 AC 2 ms 384 KB
basic_case21 AC 2 ms 384 KB
basic_case22 AC 2 ms 384 KB
basic_case23 AC 2 ms 384 KB
basic_case24 AC 2 ms 384 KB
basic_case25 AC 2 ms 384 KB
basic_case26 AC 2 ms 384 KB
basic_case27 AC 1 ms 384 KB
basic_case28 AC 2 ms 384 KB
basic_case29 AC 2 ms 384 KB
sample00 AC 2 ms 384 KB
sample01 AC 2 ms 384 KB