結果

問題 No.264 じゃんけん
ユーザー arito_asuarito_asu
提出日時 2020-06-05 20:52:59
言語 Perl
(5.38.2)
結果
WA  
実行時間 -
コード長 325 bytes
コンパイル時間 303 ms
コンパイル使用メモリ 5,368 KB
実行使用メモリ 4,736 KB
最終ジャッジ日時 2023-08-22 13:01:35
合計ジャッジ時間 1,018 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge15
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 WA -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

my $input = <STDIN>;
my @ls = split(/ /, $input);
my $N = $ls[0]; my $K = $ls[1];
my $r = "";

if ($N == $K) {
    $r = "Drew";
} elsif ($N > $K){
    if ($N - $K == 2) {
        $r = "Won";
    } else {
        $r = "Lost";
    }
} else {
    if ($K - $N == 2) {
        $r = "Lost";
    } else {
        $r = "Won"
    }
}
0