dimitri/Civilisation-hs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed arguments order to match other functions

Browse source
This commit is contained in:
Dimitri Lozeve 2016-08-03 20:33:25 +01:00
parent e36db42ec7
commit c683e624bc
No known key found for this signature in database
GPG key ID: 12B390E6BD7CF219
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Sat.hs
View file

@ -195,13 +195,13 @@ resolveAll f = case findMatchingPair f of
-- applies resolveAll and the unit propagation and pure literals
-- rules, until it reaches the empty formula (therefore SAT) or an
-- empty clause (therefore UNSAT).
resolutionSolve :: Assignment -> CNF -> Result
resolutionSolve asst [] = SAT asst
resolutionSolve asst f
resolutionSolve :: (CNF, Assignment) -> Result
resolutionSolve ([], asst) = SAT asst
resolutionSolve (f, asst)
| [] `elem` f = UNSAT
| otherwise =
let (f', asst') = (pureLitRule . unitPropagate) (f, asst) in
resolutionSolve asst' (resolveAll f')
resolutionSolve (resolveAll f', asst')