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

Add files via upload

Browse source
This commit is contained in:
Gregory Bednov 2025-01-10 20:50:02 +03:00 • committed by GitHub
commit fb6dd81f33
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
17 changed files with 735 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

30
Ternary/Statement.hs Normal file
View file

@ -0,0 +1,30 @@
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)
inv :: (Eq a) => Term a -> Term a
inv (Term p x) = Term (not p) x
i :: (Eq a) => Bool -> Term a -> Term a -> Vee a
i v x y
| x == inv y = error "x and not x under the same Vee, refusing to calculate"
| x /= y = Term v . Item $ [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)