結果
問題 | No.2090 否定論理積と充足可能性 |
ユーザー |
![]() |
提出日時 | 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
ソースコード
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;