結果

問題 No.319 happy b1rthday 2 me
ユーザー tails
提出日時 2015-12-12 01:16:39
言語 Perl
(5.40.0)
結果
AC  
実行時間 4 ms / 2,000 ms
コード長 243 bytes
コンパイル時間 106 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 5,504 KB
最終ジャッジ日時 2024-12-23 14:36:03
合計ジャッジ時間 1,493 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
プレゼンテーションモードにする

<>=~$";
$o=1;
for$x($`,$'+1){
    $c=-$c;
    $d=1;
    for(0..14){
        $y=$x/$d|0;
        $c+=int(($y-13)/100+1)*$d;
        $c+=$x%$d if $y%100==12;
        $c+=int($d/10) if $y>2;
        $c+=int(($x-$d*2)/10)+($x%10>$o) if $y==2;
        $d*=10;
    }
    ++$o;
}
print$c+($`<3)-($'<2)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0