gregorbednov/tern_solver
gregorbednov/tern_solver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

prove feature, major refactoring

Browse source
This commit is contained in:
Gregory Bednov 2025-06-15 04:25:00 +03:00
commit 65f093e565
4 changed files with 306 additions and 204 deletions
Download patch file Download diff file Expand all files Collapse all files

38
Ternary/Statement.hs
View file

@ -1,14 +1,18 @@
module Ternary.Statement (Statement(..), st) where
import Ternary.Term (Vee, Term(..), Item(..))
data Statement a = A a a -- Affirmo (general affirmative)
| I a a -- affIrmo (private affirmative)
| E a a -- nEgo (general negative)
| O a a -- negO (private negative)
| A' a a
| I' a a
| E' a a
| O' a a
deriving (Eq, Show, Read)
data StatementKind = A | I | E | O | A' | I' | E' | O' deriving (Eq, Show, Read)
data Statement a = Statement StatementKind a a deriving (Eq, Read)
instance Show a => Show (Statement a) where
show (Statement A x y) = "Every " ++ show x ++ " is " ++ show y
show (Statement I x y) = "Some of " ++ show x ++ " is " ++ show y
show (Statement E x y) = "None of " ++ show x ++ " is " ++ show y
show (Statement O x y) = "Some of " ++ show x ++ " isn't " ++ show y
show (Statement A' x y) = "Every non-" ++ show x ++ " is " ++ show y
show (Statement I' x y) = "Some of non-" ++ show x ++ " is " ++ show y
show (Statement E' x y) = "None of non-" ++ show x ++ " is " ++ show y
show (Statement O' x y) = "Some of non-" ++ show x ++ " isn't " ++ show y
inv :: (Eq a) => Term a -> Term a
inv (Term p x) = Term (not p) x
@ -20,11 +24,11 @@ i v x y
| x == y = Term v . Item $ [x]
st :: (Eq a) => Statement a -> Vee a
st (A x y) = i False (Term True x) (Term False y)
st (I x y) = i True (Term True x) (Term True y)
st (E x y) = i False (Term True x) (Term True y)
st (O x y) = i True (Term True x) (Term False y)
st (A' x y) = i False (Term False x) (Term False y)
st (I' x y) = i True (Term False x) (Term True y)
st (E' x y) = i False (Term False x) (Term True y)
st (O' x y) = i True (Term False x) (Term False y)
st (Statement A x y) = i False (Term True x) (Term False y)
st (Statement I x y) = i True (Term True x) (Term True y)
st (Statement E x y) = i False (Term True x) (Term True y)
st (Statement O x y) = i True (Term True x) (Term False y)
st (Statement A' x y) = i False (Term False x) (Term False y)
st (Statement I' x y) = i True (Term False x) (Term True y)
st (Statement E' x y) = i False (Term False x) (Term True y)
st (Statement O' x y) = i True (Term False x) (Term False y)