#259198 (Perl) No.531 エヌスクミ島の平和協定 - yukicoder

提出ソース

結果

問題	No.531 エヌスクミ島の平和協定
ユーザー	moti
提出日時	2018-05-20 09:29:29
言語	Perl (5.38.2)
結果	WA
実行時間	-
コード長	100 bytes
コンパイル時間	41 ms
コンパイル使用メモリ	5,888 KB
実行使用メモリ	5,888 KB
最終ジャッジ日時	2024-06-28 14:33:45
合計ジャッジ時間	1,511 ms
ジャッジサーバーID （参考情報）	judge1 / judge3

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	6 ms 5,760 KB
testcase_01	AC	7 ms 5,760 KB
testcase_02	WA	-
testcase_03	WA	-
testcase_04	WA	-
testcase_05	WA	-
testcase_06	WA	-
testcase_07	AC	6 ms 5,888 KB
testcase_08	WA	-
testcase_09	AC	6 ms 5,760 KB
testcase_10	AC	6 ms 5,760 KB
testcase_11	WA	-
testcase_12	WA	-
testcase_13	AC	6 ms 5,888 KB
testcase_14	AC	6 ms 5,760 KB
testcase_15	AC	7 ms 5,760 KB
testcase_16	WA	-
testcase_17	AC	7 ms 5,760 KB
testcase_18	AC	6 ms 5,760 KB
testcase_19	AC	6 ms 5,888 KB
testcase_20	AC	6 ms 5,760 KB
testcase_21	AC	6 ms 5,760 KB
testcase_22	AC	6 ms 5,760 KB
testcase_23	AC	6 ms 5,760 KB
testcase_24	AC	6 ms 5,888 KB
testcase_25	AC	7 ms 5,760 KB
testcase_26	AC	7 ms 5,760 KB
testcase_27	AC	6 ms 5,888 KB
testcase_28	AC	6 ms 5,888 KB
testcase_29	AC	6 ms 5,760 KB
testcase_30	AC	6 ms 5,760 KB
testcase_31	AC	6 ms 5,888 KB
testcase_32	AC	6 ms 5,760 KB
testcase_33	AC	6 ms 5,888 KB
testcase_34	AC	6 ms 5,760 KB
testcase_35	AC	6 ms 5,760 KB
testcase_36	AC	7 ms 5,760 KB
testcase_37	AC	6 ms 5,760 KB
testcase_38	AC	6 ms 5,760 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

#!/usr/bin/env perl

use strict;
use warnings;

my ($n, $m) = split/ /,<>;
print $n == $m ? 1 : -1;

0