Folding Set ein neues Set

Question

sagen, dass ich einen Typ für Sätze Prop machen müssen:

type Prop = 
    | P of string 
    | Disjunction of Prop * Prop 
    | Conjunction of Prop * Prop 
    | Negation of Prop 

Wo:

• A "p" representing the atom P, 
• Disjunction(A "P", A "q") representing the proposition P ∨ q. 
• Conjunction(A "P", A "q") representing the proposition P ∧ q. 
• Negation(A "P") representing the proposition ¬P. 

ich angeblich verwenden, um eine mengenbasierte Darstellung von Formeln in disjunctive normale Form. Da die Konjunktion kommutativ, assoziativ und (a ∧ a) äquivalent zu a ist, ist es zweckmäßig, ein Grundkonjunkt bc durch seinen Literalsatz litOf (bc) darzustellen.

bc ist definiert als: Ein Literal ist ein Atom oder die Negation eines Atoms und ein basisches conjunct eine Konjunktion von Literalen

Dies führt mich an die Funktion für litOf: I

let litOf bc = 
    Set.fold (fun acc (Con(x, y)) -> Set.add (x, y) acc) Set.empty bc 

bin ziemlich sicher, dass mein litOf falsch ist, und ich bekomme einen Fehler auf dem (Con(x,y)) Teil sagen: "Unvollständiges Muster m atches auf diesem Ausdruck. Zum Beispiel kann der Wert 'Dis (_, _)' eine cas e nicht anzeigen von den Mustern bedeckt. ", was ich auch nicht weiß was bedeutet eigentlich in diesem Zusammenhang.

Irgendwelche Hinweise, wie ich fortfahren kann?

Answer 1

Ich gehe davon aus Ihrem Prop Beispiel Typ auf dem Weg von Tastatur hier geändert, und sah orginally wie folgt aus:

type Prop = 
    | P of string 
    | Dis of Prop * Prop 
    | Con of Prop * Prop 
    | Neg of Prop 

Es gibt mehrere Dinge, die Sie nach oben ausgelöst:

• Set. falten operiert auf Eingabe, die eine Menge ist, und tut etwas für jedes Element in der Menge. In Ihrem Fall ist die Eingabe eine boolesche Klausel, und die Ausgabe ist eine Menge.

• Sie haben nicht vollständig definiert, was ein Literal ausmacht. Für eine Konjunktion ist die Menge der Literale die Vereinigung der Literale auf der linken und auf der rechten Seite. Aber was ist mit einer Disjunktion? Die Compiler-Fehlermeldung bedeutet genau das.

Hier ist, was ich denke, Sie sind nach:

let rec literals = function 
    | P s -> Set.singleton s 
    | Dis (x, y) -> Set.union (literals x) (literals y) 
    | Con (x, y) -> Set.union (literals x) (literals y) 
    | Neg x -> literals x 

Damit werden Sie

> literals (Dis (P "A", Neg (Con (P "B", Con (P "A", P "C"))))) 
val it : Set<string> = set ["A"; "B"; "C"]