結果

問題 No.63 ポッキーゲーム
ユーザー shiCanoko_o
提出日時 2019-05-23 23:26:23
言語 Perl
(5.16.3)
結果
AC  
実行時間 5 ms
コード長 422 Byte
コンパイル時間 1,144 ms
使用メモリ 8,916 KB
最終ジャッジ日時 2019-05-23 23:26:28

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1.txt AC 4 ms
6,868 KB
2.txt AC 3 ms
6,868 KB
3.txt AC 3 ms
6,872 KB
4.txt AC 3 ms
6,868 KB
5.txt AC 3 ms
6,868 KB
6.txt AC 3 ms
6,872 KB
7.txt AC 2 ms
6,872 KB
8.txt AC 3 ms
6,872 KB
9.txt AC 3 ms
8,916 KB
10.txt AC 3 ms
6,868 KB
11.txt AC 3 ms
8,916 KB
12.txt AC 5 ms
6,868 KB
13.txt AC 2 ms
6,868 KB
14.txt AC 3 ms
6,872 KB
15.txt AC 4 ms
6,872 KB
16.txt AC 4 ms
6,872 KB
99_system_test1.txt AC 3 ms
8,912 KB
99_system_test2.txt AC 3 ms
6,872 KB
99_system_test3.txt AC 4 ms
6,872 KB
99_system_test4.txt AC 4 ms
6,868 KB
99_system_test5.txt AC 4 ms
6,868 KB
system_test1.txt AC 4 ms
6,872 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
my ($pocky, $bite) = split (/ /, <>);
chomp ($pocky, $bite);

my $loss = $bite * 2;#2人が同時にポッキーを食べるときになくなる長さ

if($pocky<=$bite){
    print "0\n";
}
elsif($pocky % $loss == 0){
    my $eat = ($pocky / $loss) - 1;
    $eat *= $bite;
    print "$eat\n";
}else{
    my $remainder = $pocky % $loss;
    my $eat = ($pocky - $remainder) / $loss;
    $eat *= $bite;
    print "$eat\n";
}
0