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

fix truth table variable order

Browse source
This commit is contained in:
hi 2025-08-18 09:37:30 +00:00
parent 550e589bc8
commit eb965050f3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Logic/Statement/Eval.hs
View file

@ -38,7 +38,7 @@ enumerate keys = map reverse $ aux start
Nothing -> []
Just (assignments') -> aux assignments'
start = map (, False) keys
start = map (, False) $ reverse keys
next [] = Nothing
next ((key, False):rest) = Just $ (key, True):rest