結果

問題 No.2090 否定論理積と充足可能性
コンテスト
ユーザー tails
提出日時 2022-09-30 22:02:57
言語 Perl
(5.40.0)
結果
AC  
実行時間 10 ms / 2,000 ms
コード長 160 bytes
コンパイル時間 483 ms
コンパイル使用メモリ 6,016 KB
実行使用メモリ 6,272 KB
最終ジャッジ日時 2024-12-22 23:42:43
合計ジャッジ時間 1,415 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 20
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::h" used only once: possible typo at Main.pl line 2.
Name "main::k" used only once: possible typo at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff # 

sub n{($x,$y)=@_;!($x&$y)}
@v=map$h{glob<>}//=$k++,0..5;
print grep({
	@a=eval;
	eval'n(n(n(0,1),2),n(n(3,4),5))'=~s/\d/$a[$v[$&]]/gr;
}glob'{0,1},'x6)?YES:NO;
0