root/logic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bfs: use a Set for visited nodes

Browse source
This commit is contained in:
hi 2025-08-12 13:28:23 +00:00
parent 7f0afa76a6
commit 56a8dd2b30
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Logic/Statement.hs
View file

@ -9,7 +9,7 @@ data Statement
| Or Statement Statement
| Implies Statement Statement
| Iff Statement Statement
deriving (Show, Eq)
deriving (Eq, Ord, Show)
atoms :: Statement -> [String]
atoms = toAscList . mkSet