Giriş

Hayattaki göreviniz basit: İnternette yanlış olduğunu kanıtlayın!
Bunu yapmak için genellikle ifadelerini dikkatlice analiz eder ve içlerindeki çelişkiyi belirtirsiniz.
Bunu otomatikleştirmenin zamanı geldi, ancak tembel olduğumuz için, mümkün olan en az çabayla (okuma: en kısa kod) insanları yanlış kanıtlamak istiyoruz.

Şartname

Giriş

Girişiniz normal normal formda bir formül olacaktır . Format için, aşağıdaki formatı kullanabilir veya kendi dilinizi, kendi dilinizin ihtiyaçlarına göre tanımlayabilirsiniz (formatta saf CNF'den daha fazla kodlayamayabilirsiniz). Bununla birlikte, test senaryoları (burada) aşağıdaki formatta verilmiştir (kendinizinkini oluşturmak çok zor olmasa da).

Girişiniz bir değişkenler listesinin listesi olacaktır (dizeleri de okuyabilirsiniz / dizeleri de isteyebilirsiniz). Bu girdi , her biri iki listenin bir listesi olan bir dizi cümle olarak yazılmış, konjonktif normal formda (CNF) bir formüldür . Maddede ilk liste olumlu değişmezleri (değişkenler), ikinci liste olumsuz (olumsuzlanmış) değişmezleri (değişkenleri) kodlar. Maddede her değişken birlikte OR'lü ve tüm maddeler birlikte AND'lu.

Netleştirmek için: [[[A,B],[C]],[[C,A],[B]],[[B],[A]]]olarak okunabilir:
(A OR B OR (NOT C)) AND (C OR A OR (NOT B)) AND (B OR (NOT A))

Çıktı

Çıktı boolean, örneğin, bazı truthy değeri veya bazı falsy değeri.

Ne yapalım?

Çok basit: Eldeki formülün tatmin edici olup olmadığını kontrol edin; örneğin, genel formülün "true" vereceği şekilde tüm değişkenlere bazı doğru ve yanlış atamalarının olup olmadığını kontrol edin. Çıktı, formül doyurucuysa "true", değilse doyurucu "false" olacaktır.
Eğlence Gerçeği: Bu, genel durum için NP tamamlayıcı bir sorundur.
Not: Bir doğruluk tablosu oluşturmak ve elde edilen herhangi bir girişin doğru olup olmadığını kontrol etmek mümkündür.

Köşe Kılıfları

Boş bir 3. seviye listesi alırsanız, o maddede böyle bir (pozitif / negatif) değişken yoktur - geçerli bir giriş.
İsterseniz diğer köşe kılıflarını tanımsız bırakabilirsiniz.
Ayrıca boş bir formülde (1. seviye listesi) true ve boş bir maddeye (2. seviye listesi) yanlış dönebilirsiniz.

Kim kazanır?

Bu kod-golf yani bayt cinsinden en kısa cevap kazanır!
Standart kurallar elbette geçerlidir.

Test-vakalar

[[[P],[Q,R]],[[Q,R],[P]],[[Q],[P,R]]] -> true
[[[],[P]],[[S],[]],[[R],[P]],[[U],[Q]],[[X],[R]],[[Q],[S]],[[],[P,U]],[[W],[Q,U]]] -> true
[[[],[P,Q]],[[Q,P],[]],[[P],[Q]],[[Q],[P]]] -> false
[[[P],[]],[[],[P,S]],[[P,T],[]],[[Q],[R]],[[],[R,S]],[[],[P,Q,R]],[[],[P]]] -> false
optional behavior (not mandatory, may be left undefined):
[] -> true (empty formula)
[[]] -> false (empty clause)
[[[],[]]] -> false (empty clause)

Mathematica, 12 bayt

SatisfiableQ

Şey, bir yerleşik var ...

Giriş formatı And[Or[a, b, Not[c], Not[d]], Or[...], ...]. Bu , boş alt ifadeler için doğru çalışır, çünkü Or[]öyle Falseve And[]öyledir True.

Kayıt için, listeden gelen formatı zorlamadan alan ve dönüşümün kendisini yapan bir çözüm 44 bayttır, ancak OP, herhangi bir ek bilgiyi kodlamadığı sürece herhangi bir formatın iyi olduğunu yorumunda açıkladı:

SatisfiableQ[Or@@Join[#,Not/@#2]&@@@And@@#]&

Haskell, 203 200 bayt

t=1<3
e%((t,f):r)=or((e<$>t)++map(not.e)f)&&e%r
e%_=t
u v b e s|s==v=b|t=e s
s e[]c=1<0
s e(v:w)c=e%c||s(u v t e)w c||s(u v(1<0)e)w c
g v[]=v
g v((t,f):r)=g(v++[x|x<-t++f,notElem x v])r
g[]>>=s(\x->t)

Bu zorluk, yerleşik olmayan bir cevabı hak ediyor, işte başlıyorsunuz. İdeone üzerinde deneyin . Algoritma basitçe tüm değişken atamalarını dener ve içlerinden birinin formülü sağlayıp sağlamadığını kontrol eder.

Girdi biçimindedir [([],["P","Q"]),(["Q","P"],[]),(["P"],["Q"]),(["Q"],["P"])], ancak karakter dizileri yerine her tür eşitlikle çalışacaktır.

Ungolfed kod:

type Variable   = String
type CNF        = [([Variable], [Variable])]
type Evaluation = (Variable -> Bool)

satisfies :: Evaluation -> CNF -> Bool
satisfies eval [] = True
satisfies eval ((t,f):r) = or(map eval t ++ map (not.eval) f) && satisfies eval r

update :: Evaluation -> Variable -> Bool -> Evaluation
update eval s b var = if var == s then b else eval var

search :: Evaluation -> [Variable] -> CNF -> Bool
search eval [] cnf = False
search eval (v:vars) cnf = satisfies eval cnf || search (update eval v True) vars cnf || search (update eval v False) vars cnf 

getVars :: CNF -> [Variable] -> [Variable]
getVars [] vars = vars
getVars ((t,f):cnf) vars = getVars cnf (vars ++ [v |v<-(t++f), notElem v vars])

isSat :: CNF -> Bool
isSat cnf = search (\x->True) (getVars cnf []) cnf

JavaScript 6, 69B

x=>f=(v,e)=>(e=v.pop())?[0,1].some(t=>f([...v],eval(e+'=t'))):eval(x)

Kullanımı:

f('a|b')(['a','b'])
true