Add files via upload
This commit is contained in:
GitHub
commit
fb6dd81f33
17 changed files with 735 additions and 0 deletions
24
Tests/1
Normal file
24
Tests/1
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
AAA
|
||||
AẼẼ
|
||||
EAE
|
||||
EẼÃ
|
||||
AAI
|
||||
AAĨ
|
||||
AẼO
|
||||
AẼÕ
|
||||
EAO
|
||||
EAÕ
|
||||
EẼI
|
||||
EẼĨ
|
||||
AÃI
|
||||
AEÕ
|
||||
EÃO
|
||||
EEĨ
|
||||
AII
|
||||
AÕÕ
|
||||
EIO
|
||||
EÕĨ
|
||||
IÃI
|
||||
IEÕ
|
||||
OÃO
|
||||
OEĨ
|
||||
25
Tests/1_2
Normal file
25
Tests/1_2
Normal file
|
|
@ -0,0 +1,25 @@
|
|||
ÃÃÃ
|
||||
ÃEE
|
||||
ẼÃẼ
|
||||
ẼEA
|
||||
ÃÃĨ
|
||||
ÃÃI
|
||||
ÃEÕ
|
||||
ÃEO
|
||||
ẼÃÕ
|
||||
ẼÃO
|
||||
ẼEĨ
|
||||
ẼEI
|
||||
ÃAĨ
|
||||
ÃẼO
|
||||
ẼAÕ
|
||||
ẼẼI
|
||||
ÃĨĨ
|
||||
ÃOO
|
||||
ẼĨÕ
|
||||
ẼOI
|
||||
ĨAĨ
|
||||
ĨẼO
|
||||
ÕAÕ
|
||||
ÕẼI
|
||||
|
||||
24
Tests/2
Normal file
24
Tests/2
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
AÃÃ
|
||||
AEE
|
||||
EAE
|
||||
EẼÃ
|
||||
AÃI
|
||||
AÃĨ
|
||||
AEO
|
||||
AEÕ
|
||||
EAO
|
||||
EAÕ
|
||||
EẼI
|
||||
EẼĨ
|
||||
AAĨ
|
||||
AẼO
|
||||
EÃO
|
||||
EEĨ
|
||||
AĨĨ
|
||||
AOO
|
||||
EIO
|
||||
EÕĨ
|
||||
IÃI
|
||||
IEÕ
|
||||
OAÕ
|
||||
OẼI
|
||||
25
Tests/2_2
Normal file
25
Tests/2_2
Normal file
|
|
@ -0,0 +1,25 @@
|
|||
ÃAA
|
||||
ÃẼẼ
|
||||
ẼÃẼ
|
||||
ẼEA
|
||||
ÃAĨ
|
||||
ÃAI
|
||||
ÃẼÕ
|
||||
ÃẼO
|
||||
ẼÃÕ
|
||||
ẼÃO
|
||||
ẼEĨ
|
||||
ẼEI
|
||||
ÃÃI
|
||||
ÃEÕ
|
||||
ẼAÕ
|
||||
ẼẼI
|
||||
ÃII
|
||||
ÃÕÕ
|
||||
ẼĨÕ
|
||||
ẼOI
|
||||
ĨAĨ
|
||||
ĨẼO
|
||||
ÕÃO
|
||||
ÕEĨ
|
||||
|
||||
24
Tests/3
Normal file
24
Tests/3
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
AÃA
|
||||
AẼẼ
|
||||
EÃE
|
||||
EẼÃ
|
||||
AÃI
|
||||
AÃĨ
|
||||
AẼO
|
||||
AẼÕ
|
||||
EÃO
|
||||
EÃÕ
|
||||
EẼI
|
||||
EẼĨ
|
||||
AAI
|
||||
AEÕ
|
||||
EAO
|
||||
EEĨ
|
||||
AII
|
||||
AOÕ
|
||||
EIO
|
||||
EOĨ
|
||||
IAI
|
||||
IEÕ
|
||||
OAO
|
||||
OEĨ
|
||||
24
Tests/4
Normal file
24
Tests/4
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
AAÃ
|
||||
AEE
|
||||
EÃE
|
||||
EẼÃ
|
||||
AAI
|
||||
AAĨ
|
||||
AEO
|
||||
AEÕ
|
||||
EÃO
|
||||
EÃÕ
|
||||
EẼI
|
||||
EẼĨ
|
||||
AÃĨ
|
||||
AẼO
|
||||
EAO
|
||||
EEĨ
|
||||
AĨĨ
|
||||
AÕO
|
||||
EIO
|
||||
EOĨ
|
||||
IAI
|
||||
IEÕ
|
||||
OÃÕ
|
||||
OẼI
|
||||
19
Tests/Test.hs
Normal file
19
Tests/Test.hs
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
module Main (main) where -- move to main dir and rename into Main
|
||||
import Ternary.Statement (Statement (..), st)
|
||||
import Ternary.Universum (Universum (..), universum)
|
||||
import Ternary.Vee (isObvious, think, cleared)
|
||||
|
||||
|
||||
sylloTest :: IO ()
|
||||
sylloTest = do
|
||||
testStrs <- getContents
|
||||
let tests = map (\x -> (read x :: (Statement String, Statement String, Statement String)) ) . lines $ testStrs
|
||||
let run (_1, _2, _3)
|
||||
= all (\vb -> any (\va -> (vb == va) || isObvious vb va) a) b where
|
||||
a = think (universum Aristotle) $ map st [_1, _2]
|
||||
b = think (universum Aristotle) [st _3]
|
||||
putStrLn $ if all run tests
|
||||
then "✅ Passed"
|
||||
else "❌ Declined"
|
||||
|
||||
main = sylloTest
|
||||
96
Tests/syllotest
Normal file
96
Tests/syllotest
Normal file
|
|
@ -0,0 +1,96 @@
|
|||
(A "y" "z", A "x" "y", A "x" "z")
|
||||
(A "y" "z", E' "x" "y", E' "x" "z")
|
||||
(E "y" "z", A "x" "y", E "x" "z")
|
||||
(E "y" "z", E' "x" "y", A' "x" "z")
|
||||
(A "y" "z", A "x" "y", I "x" "z")
|
||||
(A "y" "z", A "x" "y", I' "x" "z")
|
||||
(A "y" "z", E' "x" "y", O "x" "z")
|
||||
(A "y" "z", E' "x" "y", O' "x" "z")
|
||||
(E "y" "z", A "x" "y", O "x" "z")
|
||||
(E "y" "z", A "x" "y", O' "x" "z")
|
||||
(E "y" "z", E' "x" "y", I "x" "z")
|
||||
(E "y" "z", E' "x" "y", I' "x" "z")
|
||||
(A "y" "z", A' "x" "y", I "x" "z")
|
||||
(A "y" "z", E "x" "y", O' "x" "z")
|
||||
(E "y" "z", A' "x" "y", O "x" "z")
|
||||
(E "y" "z", E "x" "y", I' "x" "z")
|
||||
(A "y" "z", I "x" "y", I "x" "z")
|
||||
(A "y" "z", O' "x" "y", O' "x" "z")
|
||||
(E "y" "z", I "x" "y", O "x" "z")
|
||||
(E "y" "z", O' "x" "y", I' "x" "z")
|
||||
(I "y" "z", A' "x" "y", I "x" "z")
|
||||
(I "y" "z", E "x" "y", O' "x" "z")
|
||||
(O "y" "z", A' "x" "y", O "x" "z")
|
||||
(O "y" "z", E "x" "y", I' "x" "z")
|
||||
(A "z" "y", A' "x" "y", A' "x" "z")
|
||||
(A "z" "y", E "x" "y", E "x" "z")
|
||||
(E "z" "y", A "x" "y", E "x" "z")
|
||||
(E "z" "y", E' "x" "y", A' "x" "z")
|
||||
(A "z" "y", A' "x" "y", I "x" "z")
|
||||
(A "z" "y", A' "x" "y", I' "x" "z")
|
||||
(A "z" "y", E "x" "y", O "x" "z")
|
||||
(A "z" "y", E "x" "y", O' "x" "z")
|
||||
(E "z" "y", A "x" "y", O "x" "z")
|
||||
(E "z" "y", A "x" "y", O' "x" "z")
|
||||
(E "z" "y", E' "x" "y", I "x" "z")
|
||||
(E "z" "y", E' "x" "y", I' "x" "z")
|
||||
(A "z" "y", A "x" "y", I' "x" "z")
|
||||
(A "z" "y", E' "x" "y", O "x" "z")
|
||||
(E "z" "y", A' "x" "y", O "x" "z")
|
||||
(E "z" "y", E "x" "y", I' "x" "z")
|
||||
(A "z" "y", I' "x" "y", I' "x" "z")
|
||||
(A "z" "y", O "x" "y", O "x" "z")
|
||||
(E "z" "y", I "x" "y", O "x" "z")
|
||||
(E "z" "y", O' "x" "y", I' "x" "z")
|
||||
(I "z" "y", A' "x" "y", I "x" "z")
|
||||
(I "z" "y", E "x" "y", O' "x" "z")
|
||||
(O "z" "y", A "x" "y", O' "x" "z")
|
||||
(O "z" "y", E' "x" "y", I "x" "z")
|
||||
(A "y" "z", A' "y" "x", A "x" "z")
|
||||
(A "y" "z", E' "y" "x", E' "x" "z")
|
||||
(E "y" "z", A' "y" "x", E "x" "z")
|
||||
(E "y" "z", E' "y" "x", A' "x" "z")
|
||||
(A "y" "z", A' "y" "x", I "x" "z")
|
||||
(A "y" "z", A' "y" "x", I' "x" "z")
|
||||
(A "y" "z", E' "y" "x", O "x" "z")
|
||||
(A "y" "z", E' "y" "x", O' "x" "z")
|
||||
(E "y" "z", A' "y" "x", O "x" "z")
|
||||
(E "y" "z", A' "y" "x", O' "x" "z")
|
||||
(E "y" "z", E' "y" "x", I "x" "z")
|
||||
(E "y" "z", E' "y" "x", I' "x" "z")
|
||||
(A "y" "z", A "y" "x", I "x" "z")
|
||||
(A "y" "z", E "y" "x", O' "x" "z")
|
||||
(E "y" "z", A "y" "x", O "x" "z")
|
||||
(E "y" "z", E "y" "x", I' "x" "z")
|
||||
(A "y" "z", I "y" "x", I "x" "z")
|
||||
(A "y" "z", O "y" "x", O' "x" "z")
|
||||
(E "y" "z", I "y" "x", O "x" "z")
|
||||
(E "y" "z", O "y" "x", I' "x" "z")
|
||||
(I "y" "z", A "y" "x", I "x" "z")
|
||||
(I "y" "z", E "y" "x", O' "x" "z")
|
||||
(O "y" "z", A "y" "x", O "x" "z")
|
||||
(O "y" "z", E "y" "x", I' "x" "z")
|
||||
(A "z" "y", A "y" "x", A' "x" "z")
|
||||
(A "z" "y", E "y" "x", E "x" "z")
|
||||
(E "z" "y", A' "y" "x", E "x" "z")
|
||||
(E "z" "y", E' "y" "x", A' "x" "z")
|
||||
(A "z" "y", A "y" "x", I "x" "z")
|
||||
(A "z" "y", A "y" "x", I' "x" "z")
|
||||
(A "z" "y", E "y" "x", O "x" "z")
|
||||
(A "z" "y", E "y" "x", O' "x" "z")
|
||||
(E "z" "y", A' "y" "x", O "x" "z")
|
||||
(E "z" "y", A' "y" "x", O' "x" "z")
|
||||
(E "z" "y", E' "y" "x", I "x" "z")
|
||||
(E "z" "y", E' "y" "x", I' "x" "z")
|
||||
(A "z" "y", A' "y" "x", I' "x" "z")
|
||||
(A "z" "y", E' "y" "x", O "x" "z")
|
||||
(E "z" "y", A "y" "x", O "x" "z")
|
||||
(E "z" "y", E "y" "x", I' "x" "z")
|
||||
(A "z" "y", I' "y" "x", I' "x" "z")
|
||||
(A "z" "y", O' "y" "x", O "x" "z")
|
||||
(E "z" "y", I "y" "x", O "x" "z")
|
||||
(E "z" "y", O "y" "x", I' "x" "z")
|
||||
(I "z" "y", A "y" "x", I "x" "z")
|
||||
(I "z" "y", E "y" "x", O' "x" "z")
|
||||
(O "z" "y", A' "y" "x", O' "x" "z")
|
||||
(O "z" "y", E' "y" "x", I "x" "z")
|
||||
Loading…
Add table
Add a link
Reference in a new issue