#879020 (Perl) No.2343 (l+r)/2 - yukicoder

提出ソース

結果

問題	No.2343 (l+r)/2
コンテスト
ユーザー	tails
提出日時	2023-06-09 21:08:03
言語	Perl (5.40.0)
結果	WA
実行時間	-
コード長	100 bytes
コンパイル時間	270 ms
コンパイル使用メモリ	7,076 KB
実行使用メモリ	6,820 KB
最終ジャッジ日時	2025-01-02 01:49:28
合計ジャッジ時間	996 ms
ジャッジサーバーID （参考情報）	judge5 / judge3

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

ファイルパターン	結果
sample	AC * 1
other	AC * 7 WA * 7

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

<>;
while(<>){
	$_=<>;
	print /^0/&&/1$/ || /^1/&&/0$/ || /^0/&&/1 1/ || /^1/&&/0 0/ ? Yes:No,$/;
}

0