latex truth table: fix counting

2025-08-02 09:25:48 +00:00 · 2025-08-02 09:25:48 +00:00 · 68bc86c496
commit 68bc86c496
parent f044938d74
1 changed files with 1 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@ -139,7 +139,7 @@ bucket s
    values = [fromJust $ eval assignments s | assignments <- enumerate $ atomsList]

 enumerate :: [a] -> [[(a, Bool)]]
-enumerate keys = aux start
+enumerate keys = map reverse $ aux start
  where
    aux assignments = (assignments:) $
      case next assignments of